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