1*0Sstevel@tonic-gate#!./perl -p 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-gate 8*0Sstevel@tonic-gate__DATA__ 9*0Sstevel@tonic-gateok 1 10*0Sstevel@tonic-gateok 2 11