print "Sandbox Environment\n";
$sock->print(qq{<Open seq="150" protocolVersion=$protoVer username="$uname" password="$pw"/>\0});
print "XML transfer done\n";

print <$sock>;
print "Answer from server\n";

close($sock);                           # Finish the connection
print "Finished the Line\n";