$entity = $parser->parse_data($msg);
   $parts = $entity->parts;
   $part = $entity->parts(0);
   $body = $part->bodyhandle || die "no handle";
   $IO=$body->open("r");
   while(defined($_= $IO->getline)){print $_;}