open $Test::TESTOUT, '>', $stdout;

##</code><code>##

close $Test::TESTOUT;
$Test::TESTOUT=*STDOUT{IO};