#!C:\perl\bin\perl -w use CGI; use strict; $| = 1; my $query = new CGI; print $query->header("text/html"); print "\n"; 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"; #The input field "x" has a value 100 bytes long. for (my $i = 0; $i < 200; $i++){ print "
input box $i:\n"; } print "
\n"; print "\n"; exit 0;