$TESTOUT = *STDOUT{IO};

##</code><code>##

open( TESTOUT, ">&STDOUT" ) || die "dup failed";