Help for this page
print "\ngetpeername: " . getpeername($sock) . "\n";
getpeername: send: Cannot determine peer address at udp.pl line 26