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

This is perl, v5.6.1 built for i386-linux

##</code><code>##

while(defined(my $line = <>)){
    # ...
}