#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser set_message);
use CGI qw (:standard);
$q = new CGI;
@stuff = $q->param;
foreach ($q->param) {${$_} = $q->param($_);}