my @folderlist = $imap->mailboxes(); 
for my $f (@folderlist) { print "$f\n";}