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