use LWP;
use HTTP::Headers;
use Crypt::SSLeay;

$ENV{HTTPS_CERT_FILE} = '/c/stuff/client-certs/companyX/companyX.crt';
$ENV{HTTPS_KEY_FILE}  = '/c/stuff/client-certs/companyX/companyX.key';
$ENV{PERL_LWP_USE_HTTP_10} = 1;

$ua = LWP::UserAgent->new();
$ua->agent("FooBar-POST/0.0.7");

#attempt to replicate mangled header
# content-type: text/xml
# host: securepost.stage.mystical.org
# proxy-authorization: Basic VVVpWWW2bDpXXX9YYYRlZZZ
# content-length: 3593

$h = HTTP::Headers->new(
 ":content-type" => 'text/xml',
 ":host" => 'securepost.stage.mystical.org',
 ":proxy-authorization" => "Basic VVVpWWW2bDpXXX9YYYRlZZZ",
 ":content-length" => '3593'
);

my $req = HTTP::Request->new(POST => 'https://securepost.stage.mystical.org/companyX/getPOST.asp',$h);
$req->content(<<EOT);
###
### the data goes here
### deleted for clarity and brevity
###
EOT
my $res = $ua->request($req);
if ($res->is_success) {
 print $res->content;
}
 else {
  print $res->status_line, "\n";
}