$ perl -MO=Deparse
while (my $line = <>) {}
^D
while (defined(my $line = <ARGV>)) {
    ();
}