while (<SUBNET>){
        print $_;
        chomp $_;
        my $base = $_;
        print "test";
        my $look = $ldap->search(
                           base => $base,
                           filter =>'(objectClass=dNIPIPAddressConfiguration)',
                           attrs => ["dNIPAddressNumber", "dNIPHostName", "dNIPLeaseExpiration",
                                    "dNIPLastUsed", "dNIPAssignmentType", "dNIPObjectReference"]);