#! /usr/bin/perl
use strict;
use warnings;
use Sys::Syslog qw(:standard :macros setlogsock);

die "Usage: $0 <host> <port> <count>\n" unless @ARGV == 3;

my ($host, $port, $count) = @ARGV;
my ($sender, $program) = ("localhost","loggenerator");

setlogsock({ type => "tcp", host => "$host", port => "$port" });
openlog("$sender $program", 'pid,noeol,ndelay');
syslog('info', "This is my $_ test message!" ) for (1 .. $count);
closelog();