sub send_mail {
use HTML::Entities;
use Mail::Sendmail 0.79; # doesn't work with v. 0.74!
$FORM {'Message'}="GOOD MORNING!! It looks as if things are working!!";
$Message="$FORM{'Message'}";
$FORM{'Sender'}="My Organization";
$sender="$FORM{'Sender'}";
$html = <A MESSAGE FROM SOMEBODY
$FORM{'Sender'} has sent you a message.
$Message
END_HTML
%mail = (
To => 'somebody@somewhere.com',
From => 'me@mysight.com'
subject => 'A Message From Somebody',
'content-type' => 'text/html; charset="iso-8859-1"',
);
$mail{body} = <$html