my $mesg = $ldap->search( base => "dc=example,dc=com", filter => '(objectClass=*)', scope => 'one', ); foreach my $entry($mesg->all_entries) { my $res = 0; my $indent = 0; while($res = is_leaf($ldap,$entry)) { print " " x $indent, 'non-leaf: ', $entry->dn, "\n"; $indent++; $entry = $res; } print " " x $indent, 'leaf: ', $entry->dn, "\n" unless $res; # $res should always be 0; } sub is_leaf { my ($ldap, $entry) = @_; my $res = $ldap->search( base => $entry->dn, filter => '(objectClass=*)', sizelimit => 1, scope => 'one', ); if(my @l = $res->all_entries) { return $l[0]; } else { return 0; } }