use CGI qw(header param); print header;
foreach (param) { $$_ = param($_); }