#!/usr/local/bin/perl

print "Content-Type: text/plain\n\n";
$CounterFN = ".counter";

$NewValue = 0;

if (-f $CounterFN)
{
  open(CNT,"<$CounterFN");
  $NewValue = <CNT>;
  close(CNT);
}

$qs = $ENV{'QUERY_STRING'};

if ($qs ne "GetValue") 
{
   $NewValue = $NewValue + 1;

   open(COUNTER,">$CounterFN");
   print COUNTER "$NewValue";
   close(COUNTER);
}

print $NewValue;