#!/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);
undef $parser;

my $msg  = Mail::Message->build
   ( head  => $head
   , files => \@attachfiles
   );

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