select STDERR;
$|=1

unless (open STDERR, '|-') {
  eval {
    open ERRLOG, ">/tmp/errlog" or die;
    while(<>) {
      print ERRLOG $_;
      print STDERR $_;
    }
  };
  exit(0);
}

# repeat for STDOUT