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