sub sock_object {
    my $self = shift;
    return $self->{_sock_object} ||= Comm->new( $self->{_serveraddr}, $self->{_port} );
}