#!/usr/bin/perl

use Sys::Syslog;

&openlog ("syslogtest.ident", "PID", "local0");

&syslog ("info", "This is a test");

&closelog ();