my $conn= Net::IMAP::Simple->new(
      $host,
      port   => $port,
      ($port == 993? (
         use_ssl => 1,
         ssl_options => [
            SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_PEER()
         ]
      ) : ()),
      debug  => $log->is_trace,
   )
      or _logcroak("Cannot connect to server $host: $Net::IMAP::Simple::errstr");
   
   if ($port != 993) {
      $conn->starttls
         or _logcroak("Can't start TLS after conencting to $host port $port: ".$conn->errstr);
   }
   
   $conn->login($user, $self->login_pass)
      or _logcroak("Can't authenticate as $user to server $host: ".$conn->errstr);
   $log->info("Logged in as ".$user);
   
   my $mbox= $url->path;
   $mbox= 'INBOX' unless defined $mbox and length $mbox and $mbox ne '/';
   $conn->select($mbox)
      or _logcroak("Can't select folder $mbox");

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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