1N/A#!./perl -na
1N/A
1N/ABEGIN {
1N/A print "1..2\n";
1N/A *ARGV = *DATA;
1N/A $i = 0;
1N/A}
1N/Aprint "$F[1] ",++$i,"\n";
1N/A
1N/A__DATA__
1N/Anot ok
1N/Anot ok 3