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