#!/usr/local/bin/perl
# CGI Script: counter.pl
use CGI;

$query = new CGI;

# Fetch the current count
$count = $query->param('counter') || 0;
# Increment it by one
$count++;
# Get the script name
$script_name = $query->script_name();

print $query->header;
print $query->start_html('Counter_Script');

print <<END;
<H1>Counter Script</H1>
This script has been called 
<STRONG>$count</STRONG> times.
<p>

<A HREF="$script_name?counter=$count">
Reload this script.
</A>
END
    ;
print $query->end_html;