use strict;
use warnings;
use CGI

my $form = new CGI;
foreach(keys %$form) {
   print "$_ = $form->param($_}\n";
}

##</code><code>##

use strict;
use warnings;
use CGI

my $form = new CGI;
foreach(keys %{$form->param}) {
   print "$_ = $form->param($_}\n";
}