Select Code to Download

#!/usr/bin/perl -w
local (*SAVED_STDOUT);
...
open(STDOUT, ">&SAVED_STDOUT");

print "ters\n

Here is a script that saves, redirects, and
restores STDOUT and STDERR:
...

print STDOUT "stdout 2\n";
print STDERR "stderr 2\n";