#!/usr/local/bin/perl -w use strict; use CGI; # I hate CGI my $q = CGI->new; print $q->header; print <<'END'; hmm
END for my $param ($q->param) { print "

$param
", $q->param($param), "

"; } print <<'END'; END