perl -MO=Deparse -le 'while($_ = <>) {}'
-e syntax OK

while (defined($_ = <ARGV>)) {
    ();
}