#!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<br>"; }

# code changed at mt2k's request.  -kudra Original: 
# print "$n: $v<br>"; while (my($n,$v) = each %input);