#!/usr/bin/perl
use strict;
use warnings;
use Socket;

main(@ARGV);
exit 0;

sub main {
    my $listen_sock;
    socket($listen_sock, PF_INET, SOCK_DGRAM, getprotobyname('udp'))
        or die("Can't create socket : $!");

    my $port = 1025;
    bind($listen_sock, sockaddr_in($port, INADDR_ANY))
        or die("Can't bind socket to port $port");

    my $max_packet_size = 65536;
    my $buffer;
    while (1) {
        my $sender = recv($listen_sock, $buffer, $max_packet_size, 0);
        my ($sender_port, $sender_ip) = sockaddr_in($sender);
        $sender_ip = inet_ntoa($sender_ip);
        print "Received ", length $buffer,
            " bytes from $sender_ip:$sender_port", "\n";
    }
}