use strict;
use Mail::IMAPClient;
use Data::Dumper;
use IO::File;
my $imap = Mail::IMAPClient->new( 
	 Server   => "some.secure.imap.server",
	 User     => "someuser",
	 Password => "somepassword",
	 debug     => 1,
	) or die "Cannot connect: $@";
my $folder = "Inbox";
$imap->exists($folder) or warn "$folder not found: $@\n";
my $msgcount = $imap->message_count($folder); 
defined($msgcount) or die "Could not message_count: $@\n";
print "msg count = ", $msgcount, "\n";

my @msgs = $imap->messages or die "Could not messages: $@\n";

my $i;

foreach $i (@msgs)
{
	print "\$i = $i\n";
}


$imap->disconnect or warn "Could not disconnect: $@\n";