Select Code to Download

   my $conn= Net::IMAP::Simple->new(
      $host,
...
   $mbox= 'INBOX' unless defined $mbox and length $mbox and $mbox ne '
+/';
   $conn->select($mbox)
      or _logcroak("Can't select folder $mbox");

   $conn->select; # call select again to refresh message list

   $msg_ids= [ $conn->search($imap_query) ];

   for my $msgid (@$msglist) {
      $log->debug("Msg $msgid");
...
      my $head= MIME::Head->from_file(\join('', @$header_lines)) or di
+e;
      ...
      # filtering code goes here, which inspects headers

     # this is the code that pulls in the whole message
     my $fh= $conn->getfh($msgid) || \
...
     my $p= MIME::Parser->new;
     $p->output_to_core(1);
     return $p->parse($fh);