if (connect( $sock, sockaddr_in($self->port, inet_aton($self->server)) )) {
    $self->socket($sock);
} else {
    carp (sprintf "Can't connect to %s:%s!", $self->server, $self->port);
    $self->error(1);
    return;
}