Select Code to Download

open(FILE, "<", $filename) or die "Unable to open file:$filename <$!>"
+;
while(<FILE>) {
  print "$_"
}
close(FILE);

my $lfh;
open($lfh, "<", $filename) or die "Unable to open file:$filename <$!>"
+;
...
  print "$line"
}
close($lfh);