Re^2: File Reading and Closing confusion

    while (defined($_ = <FH>)) { ... }

Select or download this
my @lines = do { open my $fh, '<', $file or die "$file: $!\n"; <$fh> };

my @lines = do { local @ARGV = $file; <> };

Select Code to Download