sub send_command_and_get_response
{
        my($self,$line) = @_;
        my $resp = "";
        if ($self->send_line($line))
        {
                # The response ends w/a 
 on a line by itself
                while (1)
                {
                        my $line;
                        $line = $self->get_socket->getline;
                        if (!defined $line)
                        {
                                croak("Error receiving response");
                        }