Select Code to Download

while (<FILE1>)
        {    $hline=<FILE1>;
                push (@hlines,$hline);
        }

@hlines = <FILE1>;

my $FILE1;

open (FILE1, "$f1") or die "Argh! File not opened! $!";

open (FILE1, "<", $f1) or die "Argh! File not opened! $!";

#!/root/bin/perl
use strict;
...
chomp $fn;
return $fn;
}