#!/usr/bin/perl
######################################################################
# iofile.pl
######################################################################
# Perl Power! - Michael Schilli 1998
######################################################################

use IO::File;

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

if(defined $out) {                    # opened successfully?
    print $out "Test!\n";             # output
    $out->close();
} else {
    die "Cannot open test.dat!";      # error
}

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

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

if(defined $in) {                     # opened successfully?
    while(<$in>) {                    # read file
        print "$_";
    }
} else {
    die "Cannot open test.dat!";      # error
}