sub CountAccess
{
my ($pid) = @_;
my $filename = $PMroot.$PMcounter;
my $Result = "";
my @FILE = ();

use Fcntl qw/:DEFAULT :flock/;  # importiert die Konstanten für sysopen() und flock()
flock(FILE,LOCK_EX); # Exklusiver Lock

sysopen(FILE, $filename, O_RDONLY);
for my $line (<FILE>) {
$line =~ tr-\n\r--d;
push( @FILE, $line );
}
close( FILE );

for my $i (@FILE) {
  if ($i =~ /$pid\=(.*?)/)
  {
  my $counter = $1;
  $counter += 1;
  $Result .= "$pid=$counter\n";
  }

else {$Result .= $i."\n";}
}

sysopen(FILE, $filename, O_WRONLY);
print FILE $Result;
close( FILE );
flock(FILE,LOCK_UN); # Lock wieder freigeben
}