use CGI
my $cgi = CGI->new();
my $paramsRef = $cgi->Vars();
&PrintParams($paramsRef);
# -------------------------------------------------------
sub PrintParams {
  my $paramsRef = shift; # oder my ($paramsRef) = @_;
  while (my ($key, $value)) = each %$paramsRef) {
    print "$key => $value<br>\n";
  } # while
} # PrintParams