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

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

open(FILECOUNTER, ">coresys/counter.csv");
flock(FILECOUNTER, LOCK_EX);
print FILECOUNTER $newcounter;
close(FILECOUNTER);