c:\@Work\Perl\monks\Marshall>perl -MO=Deparse,-p t_read_DATA_1.pl
use warnings;
use strict 'refs';
while (defined(($_ = <DATA>))) {
    print($_);
}
__DATA__
line the first
second line
penultimate line is line 3
t_read_DATA_1.pl syntax OK
0