#!/usr/bin/perl

use warnings;
use strict;
use lib '../lib';

use Mail::Box::Manager;

my $mgr = new Mail::Box::Manager;
my $backupfile = '/tmp/mutt/072307';
my $backupbox = $mgr->open( folder => $backupfile, type => 'mbox', access =>
'rw', lock_type => 'NONE', remove_when_empty => 0, create => 1)
        or die "Cannot open backup mailbox $backupfile: $!\n";

