Select Code to Download

#!/usr/bin/perl -lw
use POSIX;
...
print STDERR "STDOUT= ".fileno(STDOUT);
open(INPUT, "<$TRAP") || die("$!: $TRAP");
$chldoutput = <INPUT>;

open(MYSTDOUT, ">&STDOUT");

open(STDOUT, ">&MYSTDOUT");