imap testing

Or something like that...
If I get the dh-make-perl stuff working correctly I'm running on the 
2.058 version of Mail::Box

tallison@isengard:~$ dpkg -l | grep ^ii | grep mail
ii  libmail-box-pe 2.058-1        manage a mailbox, a folder with messages


Which is a good thing.

I'm running into the same timing problems with the IMAP server and an 
error at the very end...  The timing problems were identified under the 
2.055 version as well.  However, I don't recall seeing any ARRAY 
reference errors in that version.

Not an ARRAY reference at /usr/share/perl5/Mail/Transport/IMAP4.pm line 
268. which I think is:
{   $labels->{$_->[0]} = not $_->[1] unless exists $labels->{$_->[0]};
of sub getFlags.
note: I checked the IMAP4.pm module and it is version 2.058.  I had a 
code problem at one point.

The code at somewhere at the bottom of this email.  My IMAP server is 
dovecot.  Works about the same under imap or imap4.

When I login ($folder = $mgr->open(...  ), the IMAP server logs 
immediately show a Disconnect for that user, system hangs for ~1 minute 
while uptime goes to 1.00.  It's a real race.

imap-login: Sep 23 18:37:08 Info: Disconnected [192.168.1.10]
--this is when it initiates the $mgr->open (open/create folder)

imap-login: Sep 23 18:38:08 Info: Disconnected: Inactivity[192.168.1.10]
-- this is the timeout from the $folder=$mgr->new statement

imap-login: Sep 23 18:38:08 Info: Login: username [192.168.1.10]
-- This occurs when I $folder->name

How do you logout/close an IMAP session with Mail::Box?
How do I crank up the noise on these events to provide better information?

tallison@isengard:~$ egrep -v "^$|^\#" bin/mailbox.pl
use strict;
use Mail::Box::IMAP4;
use Mail::Box::Manager;
use Mail::IMAPClient;
use Data::Dumper;
my $username =
my $password =
my $server =
my $mgr = Mail::Box::Manager->new();
print "opening folder\n";
print scalar localtime;
print "\n";
my $folder=$mgr->open('INBOX'
                       , type => 'imap'
                       , username => $username
                       , password => $password
                       , server_name => $server
                        ) || die $!;
print $folder->name,"\n";
print scalar localtime;
print "\n";
$folder->close;