use IO::Socket;
use strict;
use warnings;

my $server = IO::Socket::INET->new(LocalPort => 23456,
                                Proto     => 'udp')
                        or die "Couldn't be a udp server on port 23456: $@\n";
my $MAX_TO_READ = 1024;
my $datagram = '';
while($server->recv($datagram, $MAX_TO_READ)){
        print $datagram;
}