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 == $!