use warnings;
use strict;
$|++;
use Test::More qw/no_plan/;


ok(1);
[download]

When run as "z.pl > h.txt" in the command prompt (cmd), triggers the following error (tried on two different machines with different versions of Windows and ActivePerl):

Can't dup STDOUT:  Permission denied at D:/Perl/lib/Test/Builder.pm li
+ne 1322.
Compilation failed in require at D:/Perl/lib/Test/Builder/Module.pm li
+ne 3.
BEGIN failed--compilation aborted at D:/Perl/lib/Test/Builder/Module.p
+m line 3.
Compilation failed in require at D:/Perl/lib/Test/More.pm line 22.
BEGIN failed--compilation aborted at D:/Perl/lib/Test/More.pm line 22.
Compilation failed in require at C:\eli\perl_stuff\z.pl line 4.
BEGIN failed--compilation aborted at C:\eli\perl_stuff\z.pl line 4.
[download]

However, running "perl z.pl > h.txt" works fine.