sub SendMail {
	if (-e $FORM{'template'}) { }
	else { &Error('Template File Not Found - Error at sendmail subscript'); }
	
	open (FILE, $FORM{'template'});
	@File = <FILE>; close (FILE);
	open (MAIL, "|$mailprog -t") || &Error('Unable to Open Sendmail');
	print MAIL "To: $FORM{'mailto'}\n";
	print MAIL "From: $FORM{'req-EMail'} ($FORM{'req-FName'} $FORM{'req-LName'})\n";
	print MAIL "Subject: $FORM{'subject'}\n";
	print MAIL "Bcc: \n\n";
	print MAIL "This information request form is from the Rainforest & Reef Resorts of Belize website.\n";
	print MAIL "*************************************************\n";
	print MAIL "This form was submitted at $time by $FORM{'req-FName'} $FORM{'req-LName'} ($FORM{'req-EMail'}).\n";
	print MAIL "For your records, this is Form Request Number \= $Order from this website.\n";
	print MAIL "*************************************************\n\n";

	foreach $File (@File) {
		$File =~ s/\n//;
		foreach $Field (@InputFields) {
			$ReplaceVar = $FORM{$Field}; 
			$SearchVar = '\[' . $Field . '\]';
			$File =~ s/$SearchVar/$ReplaceVar/g; 
		}		
	print MAIL "$File\n"; }
	close (MAIL);
}