my $xml = "<test>post did it go threw</test>";
my $SendObject = Win32::OLE->new('microsoft.XMLhttp');
$SendObject->open("POST", "http://www.xys.com/cgi-bin/post_test.cgi", "false");
$SendObject->setRequestHeader("Content-type", "text/xml");
$SendObject->send($xml);
my $response = $SendObject->responseText;
print "<br><br>POST RESPONSE: $response";