#!/usr/bin/perl -w

use IO::Socket::INET;

my $sock = IO::Socket::INET->new(
                                LocalAddr => 'loghost',
                                LocalPort => 514,
                                Proto => 'udp',
                                Listen => '5' )
                                or die "Cant establish socket";
my $data = '';
while ( 1 )
{
        my $from_who = recv( $sock, $data, 1450, 0 ) || warn "Problem with recv: $!\n";
}