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;

}