my $test_output;
    my $IO = IO::Scalar->new(\$test_output);
    $IO->format_name('STDOUT');
    $IO->format_top_name('STDOUT_TOP');
    select($IO);
    eval {
        runtests(@testfiles);
    };
    $test_output .= $@ if ($@);
    select(STDOUT);

##</code><code>##

    my $test_output;
    tie(*STDOUT, 'IO::Scalar', \$test_output);
    eval {
        runtests(@testfiles);
    };
    $test_output .= $@ if ($@);
    untie(*STDOUT);