#!usr/bin/perl -w
#############################
### Perl Counter von Us0R ###
#############################
open (WRITE, ">counter.txt");
while (<WRITE>)
{
$counter = $_++;
}
print WRITE $counter;
close (WRITE);
open (DATA,"counter.txt");
while (<DATA>)
{
print "$_";
}
close (DATA);

open (WRITE, ">counter.txt");
while (<WRITE>)
{
$counter = $_++;
}

open (WRITE, "<counter.txt") or die $!;
while (<WRITE>)
{
  $counter = $_++;
}

open (WRITE, "<counter.txt") or die $!;
while (<WRITE>)
{
 $counter = $_++;
}

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');