my $counter_file='counter.txt'

my $cnt=read_counter($counter_file);

# wenn das lesen nicht erfolgreich war
# wird von read_counter "undef" in $cnt geschrieben
# wenn man das testet,
# kann man heraus finden,
# ob das lesen erfolgreich war.
# die Fehlermeldung der letzten Dateiaktion
# steht in der Spezialvariable: "$!"
die("Konnte Zähler nicht lesen $!\n") unless( defined ( $cnt ) );

print "COUNTER: $cnt\n";

$cnt=incement_counter($counter_file);

die("Konnte Zähler nicht lesen $!\n") unless( defined ( $cnt ) );

print "COUNTER: $cnt\n";