Select Code to Download

sub process_entry {
    my ($message, $entry) = @_;
...
    say $entry->dn;
    $message->pop_entry;
}