--MIMEBoundary_f43b637d78a6e09fe8ae5ffa2b682c98c3f079bc2615c0b6 Content-Type: text/xml; charset=UTF-8 Content-Transfer-Encoding: binary Content-ID: <0.843b637d78a6e09fe8ae5ffa2b682c98c3f079bc2615c0b6@apache.org> 51331201523500000932R51331201523500000932SendSubmissions2015-10-04T23:20:09Z55555YT599999999.5 UID=username,OU=System,OU=External, OU=Internal,OU=Department, O=U.S.A.,C=US urn:oasis:names:tc:SAML:1.0:cm:sender-vouches UID=username,OU=System,OU=External, OU=Internal,OU=Department, O=U.S.A.,C=US urn:oasis:names:tc:SAML:1.0:cm:sender-vouches O1UlDahKHbTjPt2Q/ZLTjNYs+...... Z7fLDzav6OW7g6xqsNRrBam3cNvDiLxpCE= 59999999 --MIMEBoundary_f43b637d78a6e09fe8ae5ffa2b682c98c3f079bc2615c0b6 Content-Type: application/octet-stream Content-Transfer-Encoding: binary Content-ID: PK UlJY�hL\)^@�� <��.Pg3��O�'��t:�U�� G�Ε.btN�n��Rf��2��e�3x��چa��Z�u��U��`�o�>�c�G��f��sAWQ� ��Z��/�wM'�Ԉ��M�0�0p!d --MIMEBoundary_f43b637d78a6e09fe8ae5ffa2b682c98c3f079bc2615c0b6-- ##

##

my $request = HTTP::Request->new(POST => 'https:///Send');
$request->content($xmldat);

my $response = $userAgent->request($request);
my $xmlin = $response->content();

    open(F, "> /..../attach.eml\0") ;
    binmode(F);
    print F $xmlin;
    close(F);

 my $parser = Email::MIME->new($xmlin);
 my @parts = $parser->parts;
 for my $part (@parts) {
     my $content_type = $part->content_type;
     my $content = $part->body;
     print "\n$content_type :: $content\n";
}