0.5秒ごとにUDPで現在時刻を送りつけるPerlのコード。syslogサーバのテスト用。

syslogloop.pl

#!/usr/bin/env perl
# -*- coding: utf-8 -*-
# for RHEL `sudo yum install perl-Sys-Syslog`
use strict;
use warnings;
use Sys::Syslog qw(:standard setlogsock);
use Time::HiRes qw(gettimeofday usleep);
use POSIX qw(strftime);
use constant TARGET => 'r1'; ### ** UPDATE HERE. hostname or IP ***
setlogsock('udp');
$Sys::Syslog::host = TARGET;
openlog('test', 'ndelay', 'user');
for(;;) {
  my ($sec, $usec) = gettimeofday();
  syslog('info',sprintf('%s.%03d',strftime('%Y-%m-%d %H:%M:%S',localtime $sec),$usec/1000));
  usleep(500000);
}
closelog();
0;