Select Code to Download

  
###  BEGIN code added to the paged callback sub
foreach my $var (@attr_list) {
...
      } ### if $var matches range pattern

###  END code added to the paged callback sub

foreach my $line (@supp_srch) {
     chomp($line);
...
     my $mesg = LDAP_PageSearch ( $ldap, "(&(objectclass=group)(!(obje
+ctclass=computer)))", $attributes , "$dn" );
}