- or download this
my $log = ...;
my $err = ...;
...
open(SAVEERR, ">&STDERR") or die ...
open(STDERR,"> $err") or die ..
- or download this
open(STDOUT, ">&SAVEOUT");
open(STDERR, ">&SAVEERR");
- or download this
open(STDOUT, ">&$SAVEOUT");
open(STDERR, ">&$SAVEERR");