Select Code to Download

use StringBuffer;
use PerlIO::Tied;
...
print STDOUT "this magically gets put to \$stdout\n";
open STDOUT, ">&=OLDSTDOUT";
print STDOUT "this gets put to the original standard output again\n";