perl使用syslog输出日志

最近一直在写webmin的模块，发现webmin不好调试，只好使用syslog。

use Sys::Syslog;                        # all except setlogsock()
use Sys::Syslog qw( :DEFAULT setlogsock);
my $remotehost ='127.0.0.1';
setlogsock("udp", $remotehost);
openlog($program, 'ndelay', 'user');
syslog('info', 'something happened over here');