my $log = ...;
  my $err = ...;
 
  open(SAVEOUT, ">&STDOUT") or die ...
  open(STDOUT,"> $log") or die ..

  open(SAVEERR, ">&STDERR") or die ...
  open(STDERR,"> $err") or die ..

##</code><code>##

  open(STDOUT, ">&SAVEOUT");
  open(STDERR, ">&SAVEERR");

##</code><code>##

  open(STDOUT, ">&$SAVEOUT");
  open(STDERR, ">&$SAVEERR");