Select Code to Download

# Save old STDIN and STDOUT
open my $oldin, '<&', \*STDIN or die "Can't dup STDIN:$!";
open my $oldout, '>&', \*STDOUT or die "Can't dup STDOUT:$!";
...
close STDOUT;
open STDOUT, '<&', $oldout or die "Can't redup STDOUT\n";
close $oldout;