#!/usr/bin/env perl
# How to get only the first header
use Mail::Box::Mbox;
use Mutulate;

my $mbox = Mail::Box::Mbox->new(folder => 'multipart.mbox');

my $msg = $mbox->message(0);
$msg->printStructure;

my $mod = msg_mutulate $msg
   , always_remove_plain_alternative  => 1
 # , invalidate_plain_alternative     percentage (1-100)
   , add_plain_alternative_for_html   => 1
   , remove_html_alternative          => 1
 ;

$mod->printStructure;

