BEGIN {
  open STDERR, ">", "/tmp/$0-$$.log";
}

##</code><code>##

BEGIN {
  sub SLH::PRINT { syslog("err", $_[1]) }
  sub SLH::TIEHANDLE { return bless ["dummy object"] => "SLH" }
  tie *STDERR => "SLH";
}