$sock->send(qq{<Open seq="150" protocolVersion=$protoVer username="$uname" password="$pw"/>\0});