use Sys::Syslog qw(:DEFAULT setlogsock);
sub Sys::Syslog::_PATH_LOG {"/var/www/blah/log"}
setlogsock("unix") or die "setlogsock: $!";
openlog "onliner", "pid", "user" or die "openlog: $!";
syslog "warning", "test: %d", 15;