Are you using an old version of Perl? There's an implicit defined in the scalar readline assignment; test it with B::Deparse yourself if you don't believe me:

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