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

my @FILE = ();
open( FILE, "$filename" );

	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";}

	}

open( FILE, ">$filename" );

	for my $line ($Result) {
	print FILE $line;
	}

close( FILE );

}