$sock = IO::Socket::INET->new(PeerAddr => $self->server,
                              PeerPort => $self->port,
                              Proto    => "tcp",
                    );