############################################################
# Client-Data-Key-Generator (CDKG) / Datensatzschlüsselbau #
############################################################

open(FILECOUNTER, "+<coresys/counter.csv");
flock(FILECOUNTER, LOCK_EX);
my $oldcounter = <FILECOUNTER>;
my $newcounter = $oldcounter+1;
truncate(FILECOUNTER, 0);
seek(FILECOUNTER, 0, 0);
print FILECOUNTER $newcounter;
close(FILECOUNTER);
my $clientdatakey = "clientdatakey_".$newcounter;