##

    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";
    }

##

##

  Parameters:
    form: login
    name: username
    pass: password

##

##

  Parameters:
    name: foousername  ## ---- an array
    form: login
    pass: password