use strict;
use warnings;
use Mail::IMAPClient;
use Data::Dumper;

my $host = 'some.server.net';
my $id = 'login';
my $pw = 'password';
my $folder = "/somepath/tomail/folder";

my $imap = Mail::IMAPClient->new( Server   => $host,
                                  User     => $id,
                                  Password => $pw,
                                  Debug    => 1,
) or die "Cannot connect to $host as $id: $@";

$imap->select($folder);

my @results1 = $imap->Results;
my @status = $imap->status($folder);
my @results2 = $imap->Results;
my $uidnext = $imap->uidnext($folder);
my @results3 = $imap->Results;

print Dumper(\@results1, \@status, \@results2, $uidnext, \@results3);
[download]

--Jim