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