my tmpXML;
my refXML;
$socket->print(qq{<Open seq="$seqid" protocolVersion=$protoVer username="$uname" password="$pw"/>\0});             # Send the login data
($tmpXML) = $socket->getlines;                      # Read the Server Response
$refXML = XMLin(tmpXML);