#!/usr/bin/perl

$count_file = "count.txt";

if (-e "$count_file") {
   open(COUNT,"$count_file");
   $file = <COUNT>;
   chop($line) if $line =~ /\n$/;
   close(COUNT);
   ($date,$hit) = split(/\|/,$file);
} else {
   ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
      localtime(time);
   @months = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sept","Oct","Nov","Dec");
   $date = "@months[$mon] $mday, \'$year";
   $hit = "0";
   open(COUNT,">$count_file");
   print COUNT "$date\|$hit";
   close(COUNT);
   }
$new_count = $hit;
$new_count++;

open(COUNT,">$count_file");
print COUNT "$date\|$new_count";
close(COUNT);

print "Content-type: text/html\n\n";
print "This page has been accessed $new_count times ";
print "since $date";