$message = "";


$errmsg = "<p>Field 'first' must be filled in.</p>\n" ;

if ($FirstName eq "") {
    $message = $errmsg ;
    $err = 1 ; 
}


$errmsg = "<p>Field 'last' must be filled in.</p>\n" ;

if ($LastName eq "") {
    $message = $errmsg ;
    $err = 1 ;
}


$errmsg = "<p>Please enter a valid email address</p>\n" ;

if ($Email !~ /.+\@.+\..+/) { # i had alot of trouble with this.
    $message = $errmsg ;
    $err = 1 ;
}

if ($err) {
    &error;
}

sub error{
    print $errmsg;
}