sub send_mail {
    my ($send_from,$subject,$message) = @_;
    open(SENDMAIL, "|/usr/sbin/sendmail -oi ")
	or return ("<span class='darkredbold'>Sorry you email coudn't be send. $!</span>"); 
    print SENDMAIL "From: ".$send_from;
    print SENDMAIL "To: aaa\@aaa.com";
    print SENDMAIL "Subject:".$subject;
    print SENDMAIL "\n";
    print SENDMAIL $message;
    close(SENDMAIL) or return ("<span class='darkredbold'>Sorry you email coudn't be send. $!</span>");
    return("<span class='darkbluebold'>Email sended. Thanks for your opinion.</span>");    
}