#! /usr/bin/perl -w -T

use strict;
use Sys::Syslog qw(:standard :macros);

openlog('Wibble','pid,nowait',LOG_USER) || die "Whaaaaaa\n";

syslog(LOG_ALERT,"This is a test") || die "BOO HOO\n" ;