$t->print("Host: dotnet.grossmann.com");
$t->print("Content-Type: text/xml; charset=utf-8");
$t->print("Content-Length: $lth");
$t->print("Host: dotnet.grossmann.com");
$t->print("Content-Type: text/xml; charset=utf-8");
$t->print("Content-Length: $lth");