#!/usr/bin/perl -w

use strict;

use lib '../lib';
use Mail::Box::Manager;
use Mail::Box;

my $mgr = Mail::Box::Manager->new;

my $mbox = $mgr->open('c')
  or die;

my $mh = $mgr->open
 ( folder     => 'INBOX'
 , type       => 'mh'
 , create     => 1
 , access     => 'rw'
 , keep_index => 1
 , keep_dups  => 1
 ) or die;

$mgr->copyMessage($mh, $mbox->messages)
 or die;

$mh->close;
