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

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