use strict;
use Net::LDAP;
use Net::LDAP::Control::Paged;
use Net::LDAP::Constant qw( LDAP_CONTROL_PAGED );

my @server = ( "ldap2.example.com", "ldap3.example.com" );
my $base   = "o=Company";
my $filter = "(|(objectClass=posixAccount)(objectClass=posixGroup))";
my $pagesize = 1000;

my $ldap = Net::LDAP->new( \@server, onerror => undef ) || die;
my $mesg = undef;

$mesg = $ldap->start_tls( verify => 'none' ) if $ldap;
$mesg = $ldap->bind();                                   # anonymous bind

# bind with username and password.
#
# $mesg = $ldap->bind( $userdn, password => $userpassword );

my $page = Net::LDAP::Control::Paged->new( size => $pagesize );

while (1) {

    $mesg = $ldap->search(
        base     => $base,
        filter   => $filter,
        scope    => 'sub',
        control  => [$page],
        callback => \&dosomething,    # Subroutine to process each entry returned.
    );

    $mesg->code && die "ERROR: Search " . $base . ":(" . $mesg->error . ") " . $mesg->error;

    # Get cookie from paged control
    my ($resp) = $mesg->control(LDAP_CONTROL_PAGED) or last;
    my $cookie = $resp->cookie or last;

    # Set cookie in paged control
    $page->cookie($cookie);
}

sub dosomething {

    my ( $mesg, $entry ) = @_;

    if ( !defined($entry) ) {
        return;
    }
    elsif ( $entry->isa('Net::LDAP::Reference') ) {
        return;
    }

    my @classes = $entry->get_value('objectClass');

    if ( grep /organizationalUnit/i, @classes ) {
        print $entry->dn() . " is an organizationalUnit.\n";
    }
    elsif ( grep /computer/i, @classes ) {
        print $entry->dn() . " is an computer.\n";
    }
    elsif ( grep /person/i, @classes ) {
        print $entry->dn() . " is an user.\n";
    }
    elsif ( grep /group/i, @classes ) {
        print $entry->dn() . " is an group.\n";
    }
    else {
        print $entry->dn() . " is an unknown type.\n";
        print "objectClass: " . join ( ':', @classes ) . "\n";
        $entry->dump();
    }
}