#!/usr/local/bin/perl
# Jaime Prilusky, 2004
use CGI;
use CGI::Carp 'fatalsToBrowser';
my $q = new CGI;
print $q->header();
my %vars = $q->Vars;
if ($q->param) {
while (($k,$v) = each %vars) {
print "key:$k value:$v
";
}
} else {
giveForm();
}
sub giveForm {
print qq {
};
}