dup.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
# $RCSfile: dup.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:27 $
print "1..6\n";
print "ok 1\n";
print `echo ok 5 1>&2`; # does this work? }
else {
}
if ($^O eq 'MSWin32') { print `type Io.dup` }