#!/usr/bin/env perl


use strict;
use warnings;

use Net::LDAP;

my $ldap = Net::LDAP->new('192.168.9.111');
my $mesg = $ldap->bind('cn=root,dc=lomonosov,dc=parallel,dc=ru', password => 'rootpw');

$|=1;

print "Searching for uids less than 1000 and gt 500... ";

$mesg =
    $ldap->search(
        base => "ou=slurm,dc=lomonosov,dc=parallel,dc=ru",
        filter => "&(cn<=1000)(cn>=500)"
    );

$mesg->code && die $mesg->error;

print "Ok\nFound: ";

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