open my $saved_stdout, ">&STDOUT";
close STDOUT;

# ...

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