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