print "\ngetpeername: " . getpeername($sock) . "\n";

##</code><code>##

getpeername: 
send: Cannot determine peer address at udp.pl line 26