my $p= MIME::Parser->new;
         $p->output_to_core(1);
         $p->parse($msg_or_fh);