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