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;

##</code><code>##

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;