Actually, the param method returns a list of the parameter names, not a hash.

So you should just use

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