udp        0      0 0.0.0.0:514             0.0.0.0:*

##</code><code>##

my $sock = IO::Socket::INET->new(
                                LocalAddr => 'loghost',
                                LocalPort => 514,
                                Proto => 'udp',
                                Type  => SOCK_DGRAM,
                                # Listen => '5'  # for SOCK_STREAM
) or die "Cant establish socket";