use strict;
use warnings;

use Socket;
use AnyEvent;

my $udp_server
my $udp_socket;

sub start_udp_server
{
    my $port = shift || 9000;
    my $proto = getprotobyname('udp');
    my $paddr = Socket::sockaddr_in($port, Socket::INADDR_ANY);
    socket($udp_socket, Socket::PF_INET, Socket::SOCK_DGRAM, $proto);
    bind($udp_socket, $paddr);

    $udp_server = AE::io $udp_socket, 0, sub {
        my $buff;
        my $addr = recv($udp_socket, $buff, 256, 0);
        print $buff;
    }
}

start_udp_server();

my $ae_timer = AE::timer 10, 10, sub {
    print "timer tick\n";
}

AE::cv->recv;

##</code><code>##

ncat -u localhost 9000