use Win32::OLE;
    
my $xml = 'some xml date not important to problem';
my $SendObject = Win32::OLE->new('WinHttp.WinHttpRequest.5.1');
#this is a problem...this is suppose to ignore error flags
$SendObject->SetProperty('Option', 4);
$SendObject->open("POST", "https://url", "false");
$SendObject->setRequestHeader("Content-type", "text/xml");
$SendObject->send($xml);
my $response = $SendObject->responseText;

if(Win32::OLE->LastError()){
  print "\n\n".Win32::OLE->LastError()."\n\n"; 
}

##</code><code>##

$SendObject->SetProperty('Option', 4, 0x3300);