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

##</code><code>##

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