1#!./perl -anFx+ 2 3BEGIN { 4 chdir 't' if -d 't'; 5 @INC = '../lib'; 6 require './test.pl'; 7 *ARGV = *DATA; 8 plan(tests => 2); 9} 10my $index = $F[-1]; 11chomp $index; 12is($index, $., "line $."); 13 14__DATA__ 15okx1 16okx3xx2 17