$ perl5.00404 -we 'print $line while ($line = <>)'
Value of <HANDLE> construct can be "0"; test with defined() at -e line 1.