sub GROOMLDIF {
    # Delete LDAP-internal fields

    my $erasethese = qr/\A(?:structuralObjectClass|entryUUID|creatorsName|modifiersName|createTimestamp|modifyTimestamp|entryCSN):/;

    open my $IN,  '<', 'data/all.ldif'     or die "Cannot open 'data/all.ldif' $!";
    open my $OUT, '>', 'data/groomed.ldif' or die "Cannot open 'data/groomed.ldif' $!";

    while ( <$IN> ) {
        print $OUT $_ unless /$erasethese/;
    }
}