sub SOCKETread{
	my $s = $_[0];
	my $buffer = "";
	my ($ready, $fdmask, $nfound);
	do{
	        $numBytes = sysread($s, $buf, 256);
		$buffer .= $buf;
		# loop til we have a complete response
		if (($buf =~ /^OK/im) || ($buf =~ /^Error/im) || ($buf =~ /<*>/)){
			$numBytes=0;
		}
	} while ($numBytes);
	return $buffer;
   }