#!/opt/local/bin/perl
#
#
use Sys::Syslog;

do openlog( "$program $$",'ndelay','LOCAL7');
do syslog('notice', 'SYSADMIN: generating diagnostic syslog event');
do closelog();