find all imap folders and print total and new number of messages

new-messages.pl

#!/usr/bin/perl

use strict;
use warnings;

my $SERVER = 'imap.example.com';
my $USER   = 'user.name@example.com';
my $PASSWD = '***';
my $PORT   = 993;
my $SSL    = 1;

use Mail::IMAPClient qw();

my $imap = Mail::IMAPClient->new(
    Server   => $SERVER,
    User     => $USER,
    Password => $PASSWD,
    Port     => $PORT,
    Ssl      => $SSL,
);

for my $f ( $imap->folders ) {
    my $total = $imap->message_count($f);
    next unless defined $total;
    my $new = $imap->unseen_count($f);

    print "$f: $total total, $new new\n";
}

$imap->logout;