Select Code to Download

--MIMEBoundaryurn_uuid_5922B37D7F43649CB512578951566415053
Content-Type: application/xop+xml; charset=utf-8; type="text/xml"
...

^_~K^H^H­>üJ^@^Ctest^@^C^@^@^@^@^@^@^@^@^@
--MIMEBoundaryurn_uuid_5922B37D7F43649CB512578951566415053--

my $parser = new MIME::Parser ();
my $ent = $parser->parse_open ($response_file);
...
$ent->dump_skeleton;
print "~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n";
print $ent->stringify_body;

Content-type: text/plain
Effective-type: text/plain
...

^_~K^H^H­>üJ^@^Ctest^@^C^@^@^@^@^@^@^@^@^@
--MIMEBoundaryurn_uuid_5922B37D7F43649CB512578951566415053--