#!/usr/bin/perl

use warnings;
use strict;

use Mail::Box::Manager;

my $mgr = Mail::Box::Manager->new
    or die "Couldn't create manager\n";

my $imap_client = Mail::IMAPClient->new(Server => 'suspectclass.com',
					User => 'username',
					Password => 'pass')
    or die "Couldn't create IMAP client\n";

my $imap = $mgr->open(type => 'imap',
		       imap_client => $imap_client,
		       folder => 'INBOX')
    or die "Couldn't create IMAP client\n";

open(M,'>> INBOX.mbox')
    or die "Couldn't create INBOX.mbox: $!\n";
close(M);
my $mbox = $mgr->open(type => 'mbox',
		      folder => './INBOX.mbox',
		      access => 'rw')
    or die "Couldn't open MBOX folder\n";

my @m = $imap->messages('ALL')
    or die "Couldn't get all messages\n";

$mgr->copyMessage($mbox,@m)
    or die "Couldn't copy messages\n";