use Net::LDAP;
$ldap->search( @argumentos, callback => \&processa);
sub processa {
my $mensagem = shift;
my $obj = shift;
if (!$obj) {
# Busca finalizada
}
elsif ($obj->isa('Net::LDAP::Reference')) {
my $ref;
foreach $ref ($obj->references) {
# Processa $ref
}
}
else {
# Processa Net::LDAP::Entry
}
}