Select Code to Download

    open(FH, "<:raw:encoding(UTF16-LE):utf8", $File_UTF_MS);

    $Excel->{DisplayAlerts} = 'False';
    $xlWorkBook->SaveAs( $File_UTF_MS, $xlConst->{'xlUnicodeText'});

    open(FH, ">utf8", $File_UTF8);