# exercise 6.1 by erikt(at)science.uva.nl

SOFTWARE

# open this file and print its lines
open(INFILE,$0) or die "$0: cannot open $0\n";
while (<INFILE>) { print $_; }
close(INFILE);


TEST

erikt@stuwww:~ perl -w 61.pl
# open this file and print its lines
open(INFILE,$0) or die "$0: cannot open $0\n";
while (<INFILE>) { print $_; }
close(INFILE);