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