sub sendMail
{
	$email = $FORM{'Email'} ;
	if (length $email > 80) {
	  &Show_Critical_Error ('Email Address too long!');
	}
	if ($email =~ /^[^@]+@([-\w]+\.)+[A-Za-z]{2,4}$/)
		{
	open(MAIL, "|$email_path -t -oi -odq") || &Show_Critical_Error('System Error.  Unable to open mail application.') ;
	print MAIL "To: myemail\@mydomain.com(my domain name)\n" ;
	print MAIL "From: $FORM{'Email'} (JazzKids SITE)\n" ;
	print MAIL "Subject: WEBSITE CONTACT-jazzkids\n" ;
	print MAIL "\n" ;
	print MAIL "Name: $FORM{'Name'}\n\n" ;
	print MAIL "Email: $FORM{'Email'}\n\n" ;
	print MAIL "Address: $FORM{'Address'}\n\n" ;
	print MAIL "City: $FORM{'City'}\n\n" ;
	print MAIL "State: $FORM{'State'}\n\n" ;
	print MAIL "Zip: $FORM{'Zip'}\n\n" ;
	print MAIL "Specialty: $FORM{'Specialty'}\n\n" ;
	print MAIL "Best to reach by: $FORM{'Reachby'}\n\n" ;
	print MAIL "Best to reach when: $FORM{'Reachwhen'}\n\n" ;
	print MAIL "Comments: $FORM{'Comments'}\n\n" ;
	print MAIL "----------------------------------------\n\n" ;
	print MAIL "Sent from: $FORM{'form'}\n\n" ;
	close(MAIL) ;
	}
	
	else {&Show_Critical_Error('EMAIL ADDRESS INVALID.') ;}
}



##</code><code>##

sub Parse_Post_Form
{
	read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}) ;
	@pairs = split(/&/, $buffer) ;
	$valid = "[A-Za-z]\@\:\." ;
	foreach $pair (@pairs) 
	{
		($name, $value) = split(/=/, $pair) ;
		$value =~ tr/+/ / ;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg ;
		$value =~ s/[^$valid]/./go; 
		$FORM{$name} = $value ;
		if ($value =~ s/`//) {
	 	 &Show_Critical_Error ('No back ticks allowed!');
	}
	}
}