$ perl -MO=Deparse -e 'while(my $line=<FILE>) { print; }'
while (defined(my $line = <FILE>)) {
    print $_;
}
-e syntax OK