my $mime = Email::MIME->create(parts => $parts,
header_str => [ From => 'root@localhost' ]);
my @parts;
msg_iter($mime, sub {
my ($part, $level, @ex) = @{$_[0]};
my $mime = Email::MIME->create(parts => $parts,
header_str => [ From => 'root@localhost' ]);
my @parts;
msg_iter($mime, sub {
my ($part, $level, @ex) = @{$_[0]};