Select Code to Download

open my $saved_stdout, ">&STDOUT";
close STDOUT;
...
open STDOUT, ">&", $saved_stdout or die "can't reopen STDOUT: $!";
my $kidpid = open my $fh, "-|";
# ...