You've not said what you want to do with each of the results you're paging through. For example to print the DN for each result:

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

See Using the callback subroutine approach from Net::LDAP::FAQ.