sub validate_orderform {
    my $self = shift;
    my $q = $self->query();
    my $profile = {
        required => [qw(bill_fname bill_lname bill_street1         
        bill_city bill_state bill_zip bill_country payment_type)]
    };
	
    my ($valids, $missings, $invalids, $unknowns) =
        Data::FormValidator->validate($q, $profile);

    use Data::Dumper;
    my $html_output = Dumper($valids, $missings, $invalids, $unknowns);
		
    return $html_output;
}

##</code><code>##

$VAR1 = {"bill_country" => ["USA"],"bill_lname" => [""],
"bill_fname" => ["John"],"bill_street1" => ["123 Main"],
"bill_state" => ["NY"],"bill_city" => ["New York"],
"bill_zip" => [""],"payment_type" => ["Check"]};

$VAR2 = [];
$VAR3 = [];

$VAR4 = [".cookies",".fieldnames",".charset",".parameters","action"];