Counter verschluckt Nullen

[Mark]

Hallo,

ich habe ein Script geschrieben, das soweit fehlerfrei funktioniert.
Jetzt wollte ich in das Script einen simplen Counter einbauen,
um zu sehen, wie oft diese Script aufgerufen wird.
Folgendes habe ich dazu eingebaut:

open(COUNTER, "<counter.txt") || die "Fehler\n$!";
flock(COUNTER, 2);
my $Counterstand = <COUNTER>;
close(COUNTER);

$Counterstand++;

open(COUNTER, ">counter.txt") || die "Fehler\n$!";
print COUNTER $Counterstand;
close(COUNTER);

Wenn der counter bei einem Hunderter ankommt, "verschluckt" er die Nullen. Er zählt also 98,99,100,11,12,13,... .

Woran kann das liegen.

Gruß
Mark