#!c:/perl/bin/perl -w
use strict;
use CGI;
my %input;
my $q = new CGI;
# This is where we will insert the four test
# instances. Right under this comment
print "Content-type: text/html\n\n";
(my($n,$v) = each %input) { print "$n: $v
"; }
# code changed at mt2k's request. -kudra Original:
# print "$n: $v
"; while (my($n,$v) = each %input);