#!/usr/bin/perl
use warnings;
use strict;
use v5.10;

use Sys::Syslog qw/:DEFAULT setlogsock/;

setlogsock({
    type => 'tcp',
    host => 'localhost',
    port => 514
})
    or die "Can't set syslog socket\n";

openlog 'wombat', 'ndelay', 'local0'
    or die "Can't open the event log\n";

syslog 'INFO', 'First wombat event';
syslog 'INFO', 'Second wombat event';
closelog or die $!;