1*0Sstevel@tonic-gate#!./perl -anFx+ 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} 7*0Sstevel@tonic-gateprint "@F"; 8*0Sstevel@tonic-gate 9*0Sstevel@tonic-gate__DATA__ 10*0Sstevel@tonic-gateokx1 11*0Sstevel@tonic-gateokxxx2 12