resolve: Server 'clearprobe-ddns.winbeam.com'
;; query(clearprobe-ddns.winbeam.com)
;; setting up an AF_INET() family type UDP socket
;; send_udp(192.168.88.1:53)
;; send_udp(4.2.2.2:53)
;; send_udp(192.168.88.1:53)
;; send_udp(4.2.2.2:53)
resolve: res->errorstring: query timed out

##</code><code>##

root@cwb-2-11:~# echo “nameserver 192.168.88.1” > /etc/resolv.conf
root@cwb-2-11:~# nslookup clearprobe-ddns.winbeam.com
Server:    192.168.88.1
Address 1: 192.168.88.1 router

Name:      clearprobe-ddns.winbeam.com
Address 1: 64.13.48.40 64-13-48-40.war.clearwire-dns.net

root@cwb-2-11:~# echo “nameserver 4.2.2.2” > /etc/resolv.conf
root@cwb-2-11:~# nslookup clearprobe-ddns.winbeam.com
Server:    4.2.2.2
Address 1: 4.2.2.2 vnsc-bak.sys.gtei.net

Name:      clearprobe-ddns.winbeam.com
Address 1: 64.13.48.40 64-13-48-40.war.clearwire-dns.net

##</code><code>##

root@cwb-2-11:~# netstat -una
Active Internet connections (servers and established)
Proto Recv-Q Send-Q Local Address           Foreign Address         State
udp     1752      0 0.0.0.0:52680           0.0.0.0:*

root@cwb-2-11:~# netstat -una
Active Internet connections (servers and established)
Proto Recv-Q Send-Q Local Address           Foreign Address         State
udp     5256      0 0.0.0.0:52680           0.0.0.0:*

##</code><code>##

$sock = new IO::Socket::INET(
  PeerAddr => "$server",
  PeerPort => 37,
  Proto => 'tcp',
  Timeout => 5
);

##</code><code>##

$sock = new IO::Socket::INET(
  PeerAddr => "$server",
  PeerPort => 37,
  Proto => 'tcp'
);