for my $key ($q->param()) {
    print "$key = ", $q->param($key), $/;
}