$peeraddr = $sock->recv($packet, $maxpacketsize);
# 2048 should work fine as maxpacketetsize 

##</code><code>##

if(! defined $sock->connected)

##</code><code>##

use IO::Socket;
$p = IO::Socket::INET->new(PeerAddr => "1.1.1.1:7170", Proto => "udp")
   or die "socket: $!\n";
if ($p->connected) { print "connect ok\n"}
if ($p->write("foo")) { print "send ok\n"}

##</code><code>##

connect ok
send ok