#! /usr/bin/perl -w

use strict;
use Sys::Syslog;
use File::Basename;

openlog( basename($0), 'pid', 'daemon' );
syslog('err', 'this is a test');
closelog();