#!/usr/bin/perl

use CGI qw(:standard);
use strict;
use Data::FormValidator;
my $q = new CGI;
my $profile = {
    required => [qw(one two three four)],
    optional => [qw(five six seven eight)],
	msgs =>{},
};

print "Content-type:text/html\n\n";

my %fdat = $q->Vars;
my $results = Data::FormValidator->check(\%fdat, $profile);

if ($results->has_missing) {
	foreach  ($results->missing() ) {
		print "missing field name: $_ <br>";
	}
	foreach  ($results->msgs() ) {
		print "msgs output: $_ <br>";
	}
}

exit;