Select Code to Download

open my $save_out, '>&=', \*STDOUT  or die "Can't fdopen STDOUT: $!";
open STDOUT,       '>&=', $save_out or die "Can't restore STDOUT: $!";