1*0Sstevel@tonic-gate#!./perl -na 2*0Sstevel@tonic-gate 3*0Sstevel@tonic-gateBEGIN { 4*0Sstevel@tonic-gate print "1..2\n"; 5*0Sstevel@tonic-gate *ARGV = *DATA; 6*0Sstevel@tonic-gate $i = 0; 7*0Sstevel@tonic-gate} 8*0Sstevel@tonic-gateprint "$F[1] ",++$i,"\n"; 9*0Sstevel@tonic-gate 10*0Sstevel@tonic-gate__DATA__ 11*0Sstevel@tonic-gatenot ok 12*0Sstevel@tonic-gatenot ok 3 13