$errmsg = "

Please enter a valid email address

if ($Email !~ /.+\@.+..+/) {

$message = $message.$errmsg ;

$found_err = 1 ; }

$errmsg = "

The value in field 'Age' is not valid

if ($Age =~ /\D/) {

$message = $message.$errmsg ;

$found_err = 1 ; }

elsif ($Age < 0) {

$message = $message.$errmsg ;

$found_err = 1 ; }

if ($found_err) {

&PrintError;

}

Only add these records to the database after they pass all

the tests

$DSN = "DBI:mysql:database=Meet_A_Geek";

my $dbh = DBI->connect($DSN,"NewCustomer","mdew34")

or die "Error conneting to database";

$dbh->do("INSERT INTO Customers