while( defined( my $line = <FH> ))

##</code><code>##

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