sub email {
local($mail_prog, $to, $from, $subject, $body) = @_; 
	open(MAIL, "|$mail_prog -t");
	print MAIL "To: $to \n";
	print MAIL "From: $from \n";
	print MAIL "Subject: $subject \n\n";
	print MAIL "$body";
	print MAIL "\n\n";
	close (MAIL);
}