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