Select Code to Download

open ORIGOUT, ">&STDOUT";
close STDOUT;
...
open STDOUT, ">&ORIGOUT";

print $ok ? "OK\n" : "Failed\n";