Select Code to Download

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

if(! defined $sock->connected)

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"}

connect ok
send ok