$p = new MIME::Parser;
$p->output_dir("mime");
$e=$p->parse_open("prova.MSG") or die "Non ce la faccio!!\n\n";
$e->dump_skeleton;
$body=$e->bodyhandle;
$num=$e->parts;
print "Parti: $num\n";