Help for this page

Select Code to Download

Select or download this

while (my $line = <DATA>)
{
   print $line;
}

Select or download this

c:\@Work\Perl\monks\Marshall>perl -MO=Deparse,-p t_read_DATA_2.pl
use warnings;
...
penultimate line is line 3
t_read_DATA_2.pl syntax OK
0