sub socket {
   my($host, $cport) = @_;

   my $socket = IO::Socket::INET->new (
    PeerAddr => $host,
    PeerPort => $cport, 
    Proto => "tcp",
    Timeout => 1,
    Type => SOCK_STREAM
   );
   return $socket;
}