Help for this page

Select Code to Download

Select or download this

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

Select or download this

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