Help for this page

Select Code to Download

Select or download this

BEGIN {undef $/;}

...

print "Now parsing $filename\n";
my @file = <$INFILE>;