$imap->select('Bulk Mail') or die "Could not select: $@\n";