Below is some of the code

my $request = HTTP::Request->new(POST => 'https://<www>/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($response->content);
 my @parts = $parser->parts;
 for my $part (@parts) {
     my $content_type = $part->content_type;
     my $content = $part->body;
     print "\n$content_type :: $content\n";
}
[download]