Select Code to Download

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

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