require "syslog.pl";

&openlog($program,'cons,pid','user');
&syslog('info',"The camel's nose is in the tent");
&syslog('mail|warning','My watch reads %d', time);
&closelog();
&syslog('debug',
   'This is a test of the emerging broadcast system');
&openlog("$program $$",'ndelay','user');
&syslog('notice',"warp: somebody's playing during work time");
syswrite(STDOUT,$pig,length($pig)) ||
    &syslog('info','problem was %m');  # %m == $!