use Sys::Syslog qw/:DEFAULT setlogsock/;

    setlogsock('unix');
    openlog($0, 'pid', 'user');
    syslog('notice', 'blah blah: %d', time());
    closelog();


##</code><code>##

    use Unix::Syslog qw/:subs :macros/;

    openlog($0, LOG_PID, LOG_USER);
    syslog(LOG_NOTICE, 'blah blah: %d', time());
    closelog();