my $SockObj = Comm->new( $self->_serveraddr, $self->_port );

##</code><code>##

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