Help for this page
Select Code to Download
Select
or
download this
$TESTOUT = *STDOUT{IO};
Select
or
download this
open( TESTOUT, ">&STDOUT" ) || die "dup failed";