$vars = {
		image_path => $image_path,
		data => \%data,
	};

	$subject = "contact info";

	$template_file = 'contact_info_email.htm';

	$template_1->process($template_file, $vars)
	|| die "Template process failed: ", $template->error(), "\n";

	&send_mail_html($email, $from_address, $subject, $template_1);

	$template_file = 'confirm_contact_info_email.htm';

	$template->process($template_file, $vars)
	|| die "Template process failed: ", $template->error(), "\n";

##</code><code>##

	$to_address = $_[0];
	$from = $_[1];
	$subject = $_[2];
	$content = $_[3];
.....
	print MAIL "To:	print MAIL "From: $from\n";
	print MAIL "Subject: $subject\n";
	print MAIL "$content\n";