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 = <<END_HTML;
<p><strong>A MESSAGE FROM SOMEBODY</strong>

<p>$FORM{'Sender'} has sent you a message.</p>
<p>$Message</p> 

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} = <<END_OF_BODY;
<html>$html</html>
END_OF_BODY
sendmail(%mail) || print "Error: $Mail::Sendmail::error\n";
}

##</code><code>##

TO => $VAR,
TO => "$VAR",
TO => '$VAR',
TO => $FORM{'recipient'},
TO => $FORM{recipient},
TO => "$FORM{'recipient}",
TO => "$FORM{recipient}",


##</code><code>##

sub send_mail	{


print "content-type: text/html\n\n";


  %mail = ( To      => "$FORM{recipient}",
            From    => "$FORM{email}",
            Message => "$msg",
	    Subject => "A Message From Somebody",

           );
  sendmail(%mail) or die $Mail::Sendmail::error;

}