#!/usr/bin/perl -wT

print "Content-type: text/plain\n\n";
use lib "/Library/WebServer/CGI-Executables/"; #Mac :)
use CGI::Carp qw(fatalsToBrowser);
use strict;
use Validate;
use Data::Dumper;
use CGI qw(:standard);
new CGI;

Validate::val_alpha(param('name'));
my $name = $Validate::val; 

Validate::val_date(param('date'));
my $date = $Validate::val;

Validate::val_phone(param('phone'));
my $phone = $Validate::val;

Validate::val_email(param('email'));
my $email = $Validate::val;

print Dumper($name, $date, $phone, $email); #testing only

#eventually write to the database

__END__