udp_server.pl

#!/usr/bin/perl

use strict;
use warnings;
use autodie;

use IO::Socket::INET;

$| = 1;

my ($socket,$data);

$socket = new IO::Socket::INET (
  LocalAddr => 'localhost',
  LocalPort => 2323,
  Proto => 'udp'
);

my ($datagram,$flags);

while (1) {
    $socket->recv($datagram, 42, $flags);
    print "Received datagram from ", $socket->peerhost,", flags ", $flags || "none", ": $datagram\n";
}

$socket->close();

exit(0);