# LDAP server
my $LDAP_BASE = 'OU=Aaa,DC=internal,DC=aaa,DC=com';   # LDAP search base
my $LDAP_SERVER = 'xxx-yyy.zzz.aaa.com';
my $LDAP_DN = 'readonly';
my $LDAP_PASSWORD = 'passwd';
my $filter = "(&(objectClass=person))";
 
 
# connect to LDAP server
my $ldap = Net::LDAP->new($LDAP_SERVER, onerror => \&sendMail);
if (!defined($ldap)) {
    &sendMail("Failed to connect to LDAP Server [$LDAP_SERVER]");
}
 
 
# bind account
my $result = $ldap->bind($LDAP_DN, password => $LDAP_PASSWORD);
if ($result->code()) {
    &sendMail("AD bind failed");
}
 
# get account information
$result = $ldap->search(
    base => $LDAP_BASE,
    scope => 'sub',             # entire tree
    timelimit => 600,
    filter => $filter,
    attrs => ['sAMAccountName','mail'],
    );