#!/usr/bin/perl -Tw #warnings and taint mode now enabled use CGI; use strict; #you may now use the CGI methods. print "Content-type:text/html\n\n"; print ""; my ($query) = new CGI; my (@values, $key); foreach $key ($query->param) { @values = $query->param($key); print "$key = @values\n"; } print "";