#!/usr/bin/perl -w

print "Content-type: text/html\n\n";

$code = "index.html";
$counter = "counter.txt";

# countercode 
open(COUNTER, "< $counter") or die "$_";
$hits = <COUNTER>;
close(COUNTER);
# countercode

open(PAGE, "< $code") or die "$_";
while(<PAGE>) {
    chomp($_);
    print "$_\n";
}
close(PAGE);

print "<CENTER>Hits: $hits</CENTER>";
print "<CENTER>Process ID: $$ Time: $^T</CENTER><BR>";
print "</HTML>";

#countercode
open(COUNTER, "> $counter") or die "$_";
$hits++;
print COUNTER "$hits";
close(COUNTER);
#countercode