use Win32::OLE;
my $SendObject = Win32::OLE->new('microsoft.XMLhttp');
$SendObject->open("POST", 'http://www.xyz.com/my_prog.cgi', "false");
$SendObject->setRequestHeader("Content-type", "text/xml");
$SendObject->send($XML_INFO);