use strict;
use IO::File;
use Fcntl qw(:flock);

sub counter {
   my $filename = shift;

   my $count = 0;
   { # Counter File lesen
      my $fd = IO::File->new();
      if($fd->open("< $filename")) { # oeffnen okay
         flock($fd,  LOCK_EX); # sperren
         if(my $line = $fd->getline) { #Zeile lesen
            chomp $line; # Zeilenumbruch entfernen
            $count = $line; # count lesen
         }
      }
   }
   # genau hier ist ein Fehler; ein lücke im system quasi
   # schau dubu's tipp weiter unten für den fix!!!
   { # Counter File schreiben
       my $fd = IO::File->new();
       if($fd->open("> $filename")) { # oeffnen okay
          flock($fd,  LOCK_EX); # sperren
          print $fd ++$count; # neuen count schreiben
       }
   }
   return ($count); # unn fertig
}

print counter('counter.txt');