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