sub GROOMLDIF {
     # Delete LDAP-internal fields
      my @erasethese = qw(structuralObjectClass entryUUID creatorsName modifiersName createTimestamp modifyTimestamp entryCSN);
   
      open(FILE,"< data/all.ldif");
       my @LINES = <FILE>;
      close(FILE);
      open(FILE,"> data/groomed.ldif");
       foreach my $LINE (@LINES) {
        my @array = split(/\:/,$LINE);
        print FILE $LINE unless ($array[0] eq "$erasethese[0]");
       }
      close(FILE);

      open(FILE,"< data/groomed.ldif");
          @LINES = <FILE>;
      close(FILE);
      open(FILE,"> data/groomed.ldif");
       foreach my $LINE (@LINES) {
        my @array = split(/\:/,$LINE);
        print FILE $LINE unless ($array[0] eq "$erasethese[1]");
       }
      close(FILE);
}