1N/A#!./perl -p
1N/A
1N/ABEGIN {
1N/A print "1..2\n";
1N/A *ARGV = *DATA;
1N/A}
1N/A
1N/A__DATA__
1N/Aok 1
1N/Aok 2