use CGI qw(param header);
print header();
my @keys = param();
for (@keys){
   print "$_ = ", param($_), "\n";
}