$handle = IO::Socket::INET->new(
                                    Proto     => 'tcp',
                                    PeerAddr  => $host,
                                    PeerPort  => $port,
                                    Blocking  => $blocking,
                                );