#!/usr/bin/perl -w BEGIN { open (STDERR, ">test.err");} use CGI qw(:standard); use CGI::Carp qw/fatalsToBrowser/; $ENV{"PATH"} = ""; print "Content-type: text/html\n\n"; $query = new CGI; foreach $sparam ($query->param()) { $form_data{$sparam} = $query->param($sparam); } &check_test; sub check_test() { print qq~ ~; print "
\n"; for $i (1 .. 4) { for $j (1 .. 4) { if ($form_data{'box$i$j'} == "definitely not on") { print "Box $i$j: $form_data{'box$i$j'} "; } else { print "Box $i$j: " } } } print "\n\n
\n"; print "\n\n"; }