#!/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";
    }
}

##</code><code>##

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

main(@ARGV);
exit 0;

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

    my $remote_port = 1025;
    my $remote = sockaddr_in($remote_port, inet_aton("localhost"));

    while (1) {
        my $buffer = "The time is now : ", scalar localtime();
        send($socket, $buffer, 0, $remote)
            or die("Failed to send : $!");
        sleep 1;
    }
}