Select Code to Download

open my $oldout, ">&STDOUT"     or die "Can't dup STDOUT: $!";
open OLDERR,     ">&", \*STDERR or die "Can't dup STDERR: $!";
...

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