my $parser = new MIME::Parser ();
my $ent = $parser->parse_open ($response_file);

$ent->dump_skeleton;
print "~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n";
print $ent->stringify_body;