my $FOLDER_NAME = 'inbox';

my $server = Mail::IMAPClient->new(
                                    Server   => $MAIL_SERVER,
				    User     => $MAIL_USER,
				    Password => $MAIL_PASS,
				    Fast_IO  => 0,
				    Uid      => 1,
				    Debug    => 1,
                                  );

my @folders = @{$server->folders($FOLDER_NAME)};

foreach my $fold (@folders) {
    print "Processing folder $fold\n";
    $server->select($fold);
    my @msgs = $server->search("ALL");
    foreach my $msg (@msgs) {
	print "Processing message $msg in folder $fold.\n";
	my $string = $server->message_string($msg);
	print "String = $string\n";
    }
}