#!/usr/bin/perl -T
# Demo of how to use the Perl syslog interface.
# On my SuSE 9.1 box, these messages go to /var/log/localmessages
# Note that levels debug, info, notice, and warning work fine, but
# error, critical, alert, and emergency can only be sent by root.
#  Orion Sky Lawlor, olawlor@acm.org, 2006/03/24 (Public Domain)
#

use Sys::Syslog;

openlog('fooscript', '', 'local1'); # don't forget this!
syslog('notice', 'Trying out logging from Perl...');
closelog();