Select Code to Download

$imap->select($folder) or
    warn('Cannot select mail folder - ', $!);

my @msgs = $imap->messages or die "Could not messages: $@\n";