1#!./perl -p 2 3# This test file does not use test.pl because of the involved way in which it 4# generates its TAP output. 5 6BEGIN { 7 print "1..3\n"; 8 *ARGV = *DATA; 9} 10 11END { 12 print "ok 3 - -p switch tested\n"; 13} 14 15s/^not //; 16 17__DATA__ 18not ok 1 - -p switch first iteration 19not ok 2 - -p switch second iteration 20