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