1N/A#!./perl
1N/A
1N/ABEGIN {
1N/A print "1..3\n";
1N/A *ARGV = *DATA;
1N/A}
1N/Aprint "ok 1\n";
1N/Aprint <>;
1N/Aprint "ok 3\n";
1N/A
1N/A__DATA__
1N/Aok 2 - read from aliased DATA filehandle