1#!./perl -na 2 3BEGIN { 4 print "1..2\n"; 5 *ARGV = *DATA; 6 $i = 0; 7} 8print "$F[1] ",++$i,"\n"; 9 10__DATA__ 11not ok 12not ok 3 13