Help for this page

Select Code to Download

Select or download this

a% perl -MO=Deparse -e 'while (my $line = <DATA>) {}'  
while (defined(my $line = <DATA>)) {
...
}
__DATA__
-e syntax OK