#!/usr/bin/perl

$| = 1;

use strict;

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

print "$Mail::Box::VERSION\n";

my $mgr = Mail::Box::Manager->new
  or die "$0: cannot create Mail::Box::Manager object: $!\n";

my @mboxes;
foreach my $filename (qw(a b c)) {
  print "Opening $filename for writing\n";
  my $mbox = $mgr->open($filename, access => 'rw', create => 1)
      or die "$0: cannot open `$filename' for writing: $!\n";

  print "lockfilename:", $mbox->locker->filename, "\n";

  push(@mboxes, $mbox);
}


