use Net:Syslog;
my $s=new Net::Syslog(SyslogHost=>'1.2.3.4');
$s->send('see this is in the 1.2.3.4 syslog file');