Select Code to Download

open FILE, "foo" || die "can't open file"; # assume -T foo

open FILE, ("foo" || die ...)

open( FILE, $file) or die "Error: can't open file '$file': $!\n";

open( FH, $file1 ) or die $!;
while( my $line1 = <FH> ) {
...
close( FH );
<code>
<p>gives you an error because the first <code>close( FH );

open( my $FILE, $file )
  or die "Error in reading file '$file': $!\n";
...
  print "$.: $line\n";
} # while
close( $FILE );