1#!./perl 2 3BEGIN { 4 chdir 't' if -d 't'; 5 @INC = '../lib'; 6 require './test.pl'; 7 *ARGV = *DATA; 8 plan(tests => 3); 9} 10 11pass("first test"); 12is( scalar <>, "ok 2\n", "read from aliased DATA filehandle"); 13pass("last test"); 14 15__DATA__ 16ok 2 17