$sock = new IO::Socket::INET (  PeerAddr  => $host,
                                      PeerPort   => $peerport,
                                      Proto  => 'tcp',
                                                );