#!C:\perl\bin\perl -w #This script shows the current standings. use CGI; use strict; $| = 1; my $query = new CGI; print $query->header("text/html"); print "\n"; #print out the text fields that were submitted via the form. for my $val ($query->param) { my $ct = 1; print "
submitted $val: "; foreach ($query->param($val)) { print "
$ct [" . $query->param($val) . "]\n"; $ct += 1; } } print "
\n"; #Create 200 text fields for (my $i = 0; $i < 200; $i++) { #Create a text field with 100 bytes of data print "
input box $i:\n"; } print "
\n"; print "\n"; exit 0;