#!/usr/local/bin/perl

use MIME::Parser;

my $parseObj = MIME::Parser->new();
my $entity;
my $body,$bodyHandle;
my $lines;

  $parseObj->output_dir('./');
  $entity     = $parseObj->parse(\*STDIN);
  $body       = $entity->is_multipart ? $entity->parts(0) : $entity;
  $bodyHandle = $body->bodyhandle;
  $lines      = $bodyHandle->as_string;
  $handle     = $bodyHandle->open("w");

  $handle->print( "＊＊＊ダメダメですな＊＊＊" );
  $handle->print( "\n" );
  $handle->print( $lines );
  $handle->close();

  $entity->print(\*STDOUT);
  $entity->purge();