Кодирование sendmail.cgi и utf-8

Question

Я использую этот скрипт perl sendmail.cgi для получения по электронной почте данных онлайн-формы, но он не может правильно закодировать некоторые символы: например, эту строку

Площадь Джермандат 7 Сан-Хулиа-де-Лора

преобразуется в

Plaça de la Germandat 7 Sant Julià de Lòra

при получении в виде обычного текста электронного письма

Что я должен добавить в скрипт, чтобы получить правильные символы utf-8?

#!/usr/bin/perl
sub sdsmail {

$MAIL_sort_lines = "";
if ($formdata{'sort'}) {

@sortfields = split(/,/,$formdata{'sort'});

    for ($numsort = 0; $numsort < @sortfields; $numsort++) {
    $sort_field = $sortfields[$numsort];
    $sort_value = $formdata{"$sort_field"};

        if ($PRNT_blankfields eq "2" && ! $sort_value) {}else{

        $MAIL_sort_lines = "$MAIL_sort_lines$sort_field :  $sort_value\n\n";
        }
        ## END CHECK PRINT BLANK FIELDS ##
    }
}
## END ELSE IF SORT FIELD ##


$MAIL_all_lines = "The form below was submited by $POSTER_email form Ip address: $ENV{'REMOTE_ADDR'} on $D_month $L_day, $year at $L_hour:$L_min $nightday \n";
$MAIL_all_lines = "$MAIL_all_lines -------------------------------------------------------------------------\n\n";

if ($formdata{'sort'}) {
$MAIL_all_lines = "$MAIL_all_lines$MAIL_sort_lines";
}else{
$MAIL_all_lines = "$MAIL_all_lines$MAIL_filed_lines";
}

## INJECTION PREVETION ##
$MAIL_all_lines =~ s/\r\n/\n/g;
$MAIL_all_lines =~ s/\r//g;
$MAIL_all_lines =~ s/To:/To;/g;
$MAIL_all_lines =~ s/Cc:/Cc;/g;
$MAIL_all_lines =~ s/From:/From;/g;
$MAIL_all_lines =~ s/Subject:/Subject;/g;
## END INJECTION PREVETION ##


    if ($send_email_results eq "1") {

        ## START SEND CUSTOM EMAIL ##
        if ($SEND_custom_result eq "1") {


            if ($formdata{'custom_message_format'} eq "html"){

                if ($formdata{'custom_mesfile'}) {
                $FORM_custom_mes = "$formdata{'html_custom_mesfile'}";
                $CUSTOM_MESSAGE_fl = $CUSTOM_mes_html{"$FORM_custom_mes"};
                }else{
                $CUSTOM_MESSAGE_fl = $CUSTOM_mes_html{"1"};
                }
            }else{

                if ($formdata{'custom_mesfile'}) {
                $FORM_custom_mes = "$formdata{'plain_custom_mesfile'}";
                $CUSTOM_MESSAGE_fl = $CUSTOM_mes_plain{"$FORM_custom_mes"};
                }else{
                $CUSTOM_MESSAGE_fl = $CUSTOM_mes_plain{"1"};
                }
            }


        require "$ABSOLUTE_PATH_TO_CGI_BIN$CGI_custom_email";
        &send_custom_email;

        ##$MAIL_all_lines = "The form below was submited by $POSTER_email form Ip address: $ENV{'REMOTE_ADDR'} on $D_month $L_day, $year at $L_hour:$L_min $nightday \n";
        ##$MAIL_all_lines = "$MAIL_all_lines -------------------------------------------------------------------------\n\n";

        $MAIL_all_lines = "\n";
        $MAIL_all_lines = $MAIL_all_lines."$CUSTOM_body\n\n";

        $MAIL_all_lines =~ s/\r\n/\n/g;
        $MAIL_all_lines =~ s/\r//g;
        $MAIL_all_lines =~ s/To:/To;/g;
        $MAIL_all_lines =~ s/Cc:/Cc;/g;
        $MAIL_all_lines =~ s/From:/From;/g;
        $MAIL_all_lines =~ s/Subject:/Subject;/g;

            ##print "Content-type: text/html\n\n";
            ##print "<BR><BR>$MAIL_all_lines<br><br>";
            ##exit;
        }
        ## END SEND CUSTOM EMAIL ##

        ## VERIFY CC TO, AND THEN SEND RESULTS... ##

        @ALL_SENDTO = ("$mail_sendto");
        if ($mail_ccto) {
        push (@ALL_SENDTO, $mail_ccto);
        }

        if ($formdata{'bcc_to'}) {

        @BCC_NUMB = split(/,/,$formdata{'bcc_to'});

            foreach $bcc_ad (@BCC_NUMB) {

            push (@ALL_SENDTO, $cc_to{"$bcc_ad"});
            }
        }

        if ($USE_MIME eq "1") {

                    if ($send_from_poster eq "1") {
                    $MAIL_r_from = "$formdata{'email'}";
                    }else{
                    $MAIL_r_from = "$FROM_results_email";
                    }

            foreach $SEND_email_to (@ALL_SENDTO) {

            use MIME::Lite;
            MIME::Lite->send("sendmail", "$mailprog -t -oi -oem");
            $msg = MIME::Lite->new(From => $MAIL_r_from, To => $SEND_email_to, Subject => $formdata{'subject'}, Type => $email_format, Data => $MAIL_all_lines); 
            $msg->send;

            } ## END FOR EACH ##

        }else{  ## ELSE SEND PLAIN TEXT ##

            foreach $SEND_email_to (@ALL_SENDTO) {

                ##   S T A R T   M A I L   H E A D E R S   ##
                $MAIL_headers = "To: $SEND_email_to\n";
                if ($send_from_poster eq "1") {
                $MAIL_headers = $MAIL_headers."From: $formdata{'email'}\n";
                }else{
                $MAIL_headers = $MAIL_headers."From: $FROM_results_email\n";
                }
                $MAIL_headers = $MAIL_headers."Subject: $formdata{'subject'}\n";

            $PREDEFINED_mail_contents = "$MAIL_headers$MAIL_all_lines\n\n";

            open(MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";
            print MAIL "$PREDEFINED_mail_contents\n\n";
            close MAIL;

            } ## END FOR EACH ##

        } ## END SEND THROUGH MIME ##



        ## IF SEND RESULTS TO CELL PHONE... ##
        if ($formdata{'cell_to'}) {
        $CELL_sendto = $sendto{"$formdata{'cell_to'}"};

            if ($formdata{'cell_mesfile'}) {
            $CUSTOM_MESSAGE_fl = $CELL_mesfile{"$formdata{'cell_mesfile'}"};
            }else{
            $CUSTOM_MESSAGE_fl = $CELL_mesfile{"1"};
            }

            if ($SEND_custom_result != "1") {
            require "$ABSOLUTE_PATH_TO_CGI_BIN$CGI_custom_email";
            }
            &send_custom_email;

                ##   S T A R T   M A I L   H E A D E R S   ##   
                $MAIL_headers = "To: $CELL_sendto\n";
                if ($send_from_poster eq "1") {
                $MAIL_headers = $MAIL_headers."From: $formdata{'email'}\n";
                }else{
                $MAIL_headers = $MAIL_headers."From: $FROM_results_email\n";
                }
                $MAIL_headers = $MAIL_headers."Subject: $formdata{'subject'}\n";

            $PREDEFINED_mail_contents = "$MAIL_headers\n$CUSTOM_body\n\n";

            open(MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";
            print MAIL "$PREDEFINED_mail_contents\n\n";
            close MAIL;

        }
        ## END IF SEND RESULTS TO CELL PHONE... ##


    } ## END IF SEND_EMAIL_RESULTS##


if ($formdata{'sendreply'} eq "1"){

    if ($USE_MIME eq "1") {
    use MIME::Lite;
        MIME::Lite->send("sendmail", "$mailprog -t -oi -oem");

        $msg = MIME::Lite->new(
               From    => $mail_sendto,
               To      => $POSTER_email,
               Subject => $reply_subject,
               Type    => $email_format,
               Data    => $mime_body); 

        ## if ($send_attachment eq "1"){ ##
        if ($formdata{'file_attachments'}){

            @fe_attachments = split(/,/,$formdata{'file_attachments'});
            foreach $attach_numb (@fe_attachments) {

                $attachment_nm = $ATTACHMENT_file{"$attach_numb"};
                @ATTACH_atrb = split(/,/,$ATTACHMENT_attributes{"$attach_numb"});

                $att_path = $ATTACHMENT_path{"$ATTACH_atrb[0]"};
                $att_content_type = $ATTACHMENT_type{"$ATTACH_atrb[1]"};

                $GET_ext = "$attachment_nm";
                $GET_ext =~ s/,//g;
                $GET_ext =~ s/\./,/g;

                @ATTACH_format = split(/,/,$GET_ext);
                    $att_format = "";
                    foreach $ATTACH_fm (@ATTACH_format) {

                        if ($ATTACH_fm) {
                        $att_format = ".$ATTACH_fm";
                        }
                    }

            $att_path = "$att_path$attachment_nm";

            $msg->attach(Type => $att_content_type, Encoding => $att_format->[1], Path => $att_path, Filename => $attachment_nm);

            }
        } ## END SEND ATTACHMENTS... ##

    $msg->send;
    }else{
    ## SEND AUTO REPLY PLAIN TEXT ##

        $REPLY_MAIL_headers = "To: $POSTER_email\n";
        $REPLY_MAIL_headers = $REPLY_MAIL_headers."From: $mail_sendto\n";
        $REPLY_MAIL_headers = $REPLY_MAIL_headers."Subject: $reply_subject\n";

        open(MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";
        print MAIL "$REPLY_MAIL_headers\n$mime_body\n\n";
        close MAIL;

    }
}}return 1;