$logf="logfile";
select STDERR;
$|=1;

unless (open STDERR, "|-") {
  eval {
    open ERRLOG, ">$logf" or die "Can't open $logf: $!\n";
    while(<>) {
      print ERRLOG $_;
      print STDERR $_;
    }
  };
  exit(0);