Select Code to Download

        print "STDOUT #1\n";warn "STDERR #1\n";
open my $savestdout, '>&', \*STDOUT;
...
        print "STDOUT #8\n";warn "STDERR #8\n";
close $savestderr;
        print "STDOUT #9\n";warn "STDERR #9\n";