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

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