noswitch.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN {
print "1..3\n";
*ARGV = *DATA;
}
print "ok 1\n";
print <>;
print "ok 3\n";
__DATA__
ok 2 - read from aliased DATA filehandle