use strict;
use Net::LDAP;
use Text::ParseWords;
use Data::Dumper;

my $host = 'somehost';
my $port = 400;
my $user = 'p=xxx';
my $pass = 'secret';
my $base = 'cp=1, p=root';

my $ldap = Net::LDAP->new($host, port => $port) or die "$@\n";

$ldap->bind($user, password => $pass);

my $mesg = $ldap->search (  
                       base   => "$base",
                       filter => "(objectClass=*)",
                  );

$mesg->code && die $mesg->error . "\n";

my %entries;
foreach my $entry ($mesg->all_entries) { 
    my $dn = $entry->dn;
    $dn =~ s/\s+//g;
    $entry->dn($dn);
    my @path = reverse parse_line(",", 1, $dn);

    $entries{join ',', @path} = $entry;  # this is not what I want exactly
}

$ldap->unbind;

foreach my $dn (sort keys %entries) {
    print "$dn\n";
}

exit;