#!/usr/bin/perl
use warnings;
use strict;

use lib '.';

use Mail::Box::Parser;
use Mail::Message::Head::Complete;
use Mail::Message;

my $headfile    = 'c';
my @attachfiles = qw(/etc/passwd /etc/group);

my $parser = Mail::Box::Parser->new(filename => $headfile) or die;
my $head   = Mail::Message::Head::Complete->new->read($parser);
$parser->close;

my @parts;
foreach my $f ( @attachfiles )
{   my $part = Mail::Message::Body->new(file => $f, charset => 'iso-8859-15',
       mime_type => 'text/html');

    push @parts, $part if defined $part;
}

my $body = @parts > 1 ? Mail::Message::Body::Multipart->new(parts => \@parts)
                      : $parts[0];

my $msg  = Mail::Message->new(head => $head);
$msg->body($body);

#$head->print;
$msg->printStructure;
$msg->print;
