1N/A#!./perl -anFx+
1N/A
1N/ABEGIN {
1N/A print "1..2\n";
1N/A *ARGV = *DATA;
1N/A}
1N/Aprint "@F";
1N/A
1N/A__DATA__
1N/Aokx1
1N/Aokxxx2