#!/usr/bin/env perl

use Fcntl ':flock';
use strict;
use warnings;

open DATEI, '+<', 'counter.txt' or die "Konnte die Datei nicht öffnen: $!";
flock DATEI, LOCK_EX or die "Sperren der Datei fehlgeschlagen: $!";
my $aktuellerZaehler = int (<DATEI>);
$aktuellerZaehler += 1;
seek DATEI, 0, 0;
truncate DATEI, 0;
print DATEI "$aktuellerZaehler";
close DATEI;