use IO::Socket;
my $server = IO::Socket::INET->new(
        Listen => 5,
        LocalAddr => 'localhost',
        LocalPort => 2224,
        Proto => 'udp',
        Reuse => 1
) or die "Can't create server socket: $!";

while (my $client = $server->accept()) {
        while (<$client>) {
                print $_;
        }
}