#!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