open my $fh, '<', $not_existent_filename;
while ( my $line = <$fh> ) {
  print $line;
}
close $fh;
print "END OF READ\n";