Select Code to Download

perl yourscript.pl >stdout.txt 2>stderr.txt

my ($out, $err) = (*STDOUT, *STDERR);
eval{
...
    # ...
};
*STDOUT = $out; *STDERR = $err;