my $stdout = '';
        eval {
        *STDOUT = new IO::Tee(
        \*STDERR, IO::Scalar->new(\$stdout));
        $ok = runtests(@tests);
        };


##</code><code>##

write() on unopened filehandle STDOUT at /usr/lib/perl5/vendor_perl/5.8.2/Test/Harness.pm line 665.