$ 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
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.