#!/usr/bin/perl
use Net::LDAP;

my $ldapserver = "<Server Name>"; 
my $ldapbase = "ou=people,ou=Urania,ou=Eng,dc=example,dc=com"; 
my $ldap = Net::LDAP->new( $ldapserver ) or die "$@"; 
my $mesg = $ldap->bind("cn=user>,ou=people,ou=Urania,ou=Eng,dc=example,dc=com", password=>'<user>');

$mesg = $ldap->search( base => $ldapbase, filter => "(objectClass=*)");
my @entries = $mesg->count;
print "@entries\n";
$mesg = $ldap->unbind;