Plan 9 from Bell Labs’s /usr/web/sources/contrib/gabidiaz/root/sys/src/cmd/perl/t/run/switchp.t
#!./perl -p BEGIN { print "1..2\n"; *ARGV = *DATA; } __DATA__ ok 1 ok 2
