print "\nParameters:\n";
    my $apr = Apache::Request->new($r);
    my @params = $apr->param;
    if (@params) {
        for my $param (@params) {
            print "    $param: ", $apr->param($param), "\n";
        }
    } else {
        print "NO PARAMETERS\n";
    }