use strict;
use warnings;
use Mail::IMAPClient;

my $imap = Mail::IMAPClient->new(
    Server   => 'XXXX.YYYY.com',
    User     => 'XXXX',
    Password => 'YYYY',
    Ssl      => 1,
    Uid      => 1,
);

my $folders = $imap->folders
    or die "List folders error: ", $imap->LastError, "\n";
print "Folders: @$folders\n";