#############################################
# File-Name-Generator (FNG) / Dateinamenbau #
#############################################

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 $clientfile = "clientfile_".$newcounter.".csv";