$sock_r = IO::Socket::INET->new(Proto     => "udp",
                                        Reuse     => '1', 
                                        TimeOut   => 10)
                 or die "can't connect socket $!";

        #$host_port = unpack_sockaddr_in($sock_r);
        #$host_port = sockaddr_in($sock_r->sockport);
        #$host_port = getsockname($sock_r->sockaddr);
        #($host_port, $host_ip) = unpack_sockaddr_in($sock_r->sockaddr, AF_INET);