#!c:/Perl/bin/perl

# CGI script that creates a fill-out form

# and echoes back its values.

use CGI qw/:standard/;
print header, start_html('URL Rewriting'), h1('URL Rewriting'), hr;
my $visit_count=0;
if(param()){ $visit_count=param('vc'); }
$visit_count++;
print<<EOT; 
Page accessed <b>$visit_count</b> times.
<br><a href=URLRewrite.pl?vc=$visit_count>Come back again</a>
<br>Note the URL above keeps changing!! It includes state information.
EOT