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