#!/usr/bin/perl -w

use CGI ":standard";

$result = open FILE, "<count.log";
if ($result) {
	#file exists
	$count = <FILE>;
	close FILE;
}
else {
	$count = 0;
}

#add the current visitor
$count = $count + 1;

#update file.
open FILE, ">count.log" or die "Unable to update file.<br />\n";

print FILE "$count";

#Now write the count to the client
print header;
print start_html ("Visitor Count");
print "<p>You are visitor number $count</p>";
print end_html;