$parser = new MIME::Parser;
   $parser->ignore_errors(1);
   $parser->output_to_core(1);
   my $MIME_entity = $parser->parse(\*STDIN);
   my $error = ($@ || $parser->last_error);
   $header = $MIME_entity->head;
   $subject = $header->get('Subject'); 
   <...snip..>
   $body = $MIME_entity->body;