$ perl -MO=Deparse -e 'open $fh,"foo.txt"; while (my $line = <$fh>) { print $line }' open $fh, 'foo.txt'; while (defined(my $line = <$fh>)) { print $line; } -e syntax OK