<update>

After RTFMing a bit, here's an example: searching 'dc=example,dc=com'

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; # $r
+es 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;
    }
}
[download]

</update>

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}