use Net::LDAP;
use Switch;
$i=0;
 $ldup = Net::LDAP->new( '10.131.103.3', port => 1588) or die "$@";
 $masg = $ldup->bind ;  # an anonymous bind
 $masg = $ldup->search( # perform a search
                        base   => "ou=annuaire,dc=test,dc=com",
                                                scope  => 'sub',
                        filter => "(objectClass=organizationalUnit)"
                      );

 $masg->code && die $masg->error;
 foreach  $entry ($masg->entries)
 {
$i++;
print $i."\t";
         $uid=$cn=$givenname=$mail=$sn="NULL";
         $dn=$entry->dn();

         foreach  $attr ($entry->attributes)
                {
                if($attr eq ou)
                        {
                        $uid=$entry->get_value($attr);
                                 print $dn."\n";
#                        print $uid."\n";
                        }
                }

 }


$mesg = $ldup->unbind;   # take down session