Help for this page

Select Code to Download

Select or download this
```
while( defined( my $line = <FH> ))
```

Select or download this

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