use IO::Socket::INET;
my $log = IO::Socket::INET->new(
    PeerAddr => 'logserver',
    PeerPort => 514,
    Proto    => 'udp'
);
die unless $log->connected();