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

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