1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
#!./perl -n BEGIN { print "1..3\n"; *ARGV = *DATA; } END { print "ok 3\n"; } print; s/^/not /; __DATA__ ok 1 ok 2