#!/usr/bin/perl -w
use strict;
use IO::Socket;
my($sock, $msg, $hisaddr, $hishost, $hostaddr, $MAXLEN, $PORTNO);
$MAXLEN = 1024;
$PORTNO = 7777;
$sock = IO::Socket::INET->new(LocalPort => $PORTNO, Proto => 'udp') or die "socket: $@";
print "Awaiting UDP messages on port $PORTNO\n";
while ($sock->recv($msg, $MAXLEN)) {
    my($port, $ipaddr) = sockaddr_in($sock->peername);
#    $hishost = gethostbyaddr($ipaddr, AF_INET);
    $hostaddr=inet_ntoa($ipaddr);
    print "Client on $hostaddr:$port has sent $msg";
    $sock->send($msg);
} 
die "recv: $!";


