##
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