my $socket = IO::Socket::INET->new(
   Proto => 'udp', Type => SOCK_DGRAM,
   LocalPort => 9999) ||
confess "error: failed to create broadcast udp socket - $!";
# server now does select etc to wait for msg
my $ip = $socket->recv(my $data, 100);
my ($port, $ipaddr) = sockaddr_in($socket->peername);
my $hishost = gethostbyaddr($ipaddr, AF_INET);
print "Client $hishost/$port said $data\n";
print "sent " . $scoket->send('Refresh', 0, $ip) . "\n";