use Sys::Syslog qw(:DEFAULT setlogsock);

setlogsock('unix');
openlog('Test', 'NULL', 'syslog');

syslog($priority, 'This is a test');