1#!./perl 2 3BEGIN { 4 print "1..3\n"; 5 *ARGV = *DATA; 6} 7print "ok 1\n"; 8print <>; 9print "ok 3\n"; 10 11__DATA__ 12ok 2 - read from aliased DATA filehandle 13