Select Code to Download

my $page = Net::LDAP::Control::Paged->new( size => 10000 );
my $ldap = Net::LDAP->new("ad.host:389") or die "$@";
...
                         control=>[ $page ],
                         base=>"CN=sub,DC=company,DC=com");

my $strFilter = "(memberOf=cn=GDTNA APP Cognos,ou=groups,cn=esso,dc=bs
+ci,dc=com);";
my $strAttrs  = "cn,distinguishedName;";
...
$query = $strBase . $strFilter . $strAttrs . $strScope;
$commObj->{CommandText} = $query;
my $objRS = $commObj->Execute($query);