use Net::IMAP::Simple;

# open a connection to the IMAP server
$server = new Net::IMAP::Simple("myserver.mydomain.com");
print "server=$server\n";

# login
$server->login( "MasterUser", "Password" );

# run through each mailbox (or folder)
my @boxes = $server->mailboxes;
foreach my $box (@boxes) {
  print "box=$box\n";
}