#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

use IO::File;

$out = IO::File->new(">test.dat");    # Schreibender Zugriff

if(defined $out) {                    # Erfolgreich geöffnet?
    print $out "Test!\n";             # Ausgabe
    $out->close();                    # Schließen
} else {
    die "Cannot open test.dat!";      # Fehler
}

###############################################################

$in = IO::File->new("<test.dat");     # Lesender Zugriff

if(defined $in) {                     # Erfolgreich geöffnet?
    while(<$in>) {                    # Datei auslesen
        print "$_";
    }
    $in->close();                     # Schließen
} else {
    die "Cannot open test.dat!";      # Fehler
}