$ perl -MO=Deparse
while (my $in = <STDIN>)
{
    print $in;
}
^D
while (defined(my $in = <STDIN>)) {
    print $in;
}
- syntax OK