Select Code to Download

#!/usr/bin/env perl

...
print "Ok\nFound: ";

print join ", ", map $_->get_value("cn"), $mesg->entries;

Searching for uids less than 1000 and gt 500... Ok
Found:

fisher% ldapsearch -h 192.168.9.111 -D "cn=root,dc=lomonosov,dc=parall
+el,dc=ru" -w "rootpw" -b "ou=slurm,dc=lomonosov,dc=parallel,dc=ru" "&
+(cn>600)(cn<1000)" |tail -3

# numResponses: 145
# numEntries: 144