$fh->open($file, O_RDWR) or die $!;
flock $fh, LOCK_EX;
# Nummer lesen
# Wert erhöhen
# Truncate und Zurückschreiben
$fh->close; # Buffer werden geleert, Datei wird geschlossen