Help for this page
open $Test::TESTOUT, '>', $stdout;
close $Test::TESTOUT; $Test::TESTOUT=*STDOUT{IO};