# das "my $OUT" braucht nicht separat zu stehen
open(my $OUT, '>', $zaehlerfile) or scriptAbbruch("Konnte Zählerdatei $zaehlerfile nicht öffnen. Grund: $!");
print {$OUT} $zaehler or scriptAbbruch("Konnte Zähler nicht setzen.");
close($OUT);