Select Code to Download

use Encode qw(encode);
use Win32::Codepage;
    my $w32encoding = Win32::Codepage::get_encoding();  # e.g. "cp936"
    my $encoding = $w32encoding ? Encode::resolve_alias($w32encoding) 
+: '';
    print $encoding ? encode($string, $encoding) : $string;

    use Encode;
        use Win32::Codepage;
...
    print "\nIs ".encode("$encoding",$str8)." utf8 format : ",utf8::is
+_utf8($str8),"\n\n";
    print OUT $str8."\n";
        close OUT;