if ($body = $part->bodyhandle) {
      $IO=$body->open("r");
      print while(defined($_= $IO->getline));
   }