use Sys::Syslog;



openlog $ident, $logopt, $facility;

syslog $priority, $mask, $format, @args;

$oldmask = setlogmask $mask_priority;

closelog;

*****

openlog($program, 'cons, pid', 'user');

syslog('info', 'this is another test');

syslog('mail|warning', 'this is a better test: %d', time);

closelog();



syslog('debug', 'this is the last test');

openlog("$program $$", 'ndelay', 'user');

syslog('notice', 'fooprogram: this is really done');



$! = 55;

syslog('info', 'problem was %m'); # %m == $! in syslog(3)

