1#!./perl -anFx+ 2 3BEGIN { 4 print "1..2\n"; 5 *ARGV = *DATA; 6} 7print "@F"; 8 9__DATA__ 10okx1 11okxxx2 12