Thank you very much all.

@moritz : I tried hard to Encode qw/encode decode/ module but didn't.

Here is my codes.

Reminder:

Installed language packets in my OS : English, Turkish

Turkish charset testing : ç

use warnings;
use strict;
use Win32::GUI();
use Data::Dumper;
use Encode qw/decode/;

my $str = "ç"; # This is "turkish" charset "ç"
$str = decode("utf-8", $str); # decoding "ç" char with utf-8
print Dumper($str); # And "ç" char dumped, output : \x{e7}

my $win = new Win32::GUI::Window(
-name => "win",
-text => "Unicode Test",
-width => 300,
-height => 200
);

$win->AddLabel(
-name => "labeun",
-text => "\x{e7}", # <--- Write here hex code char "\x{e7}"
                   # and look at the results. Displaying label text "ç
+". No problem.
-width => 50,
-height => 20
);
$win->Center();
$win->Show();
Win32::GUI::Dialog();
1;
[download]

I tried ucs2 encoding but didn't and.
Example : Russian charset ф
$rchar = ф

use warnings;
use strict;
use Win32::GUI();
use Encode qw/encode decode/;
use Data::Dumper;
my $str = "$rchar"; # This is "russian" charset. * a == $rchar *
my $utf8 = decode("utf-8", $str); # decoding "$rchar" char with utf-8
my $ucs2 = encode("UCS-2LE",$utf8);
# and encoding char with UCS-2LE.Others have tried.!
# Other encoding schemes : UCS-2BE, UCS-2LE, UTF-16, 
# UTF-16BE, UTF-16LE, UTF-32, UTF-32BE, UTF-32LE    

my $win = new Win32::GUI::Window(
-name => "win",
-text => "Unicode Test",
-width => 300,
-height => 200
);

$win->AddLabel(
-name => "labeun",
-text => "$ucs2", # <--- Writing here encoding char.Displaying label t
+ext "unkown". FAIL
-width => 50,
-height => 20
);
$win->Center();
$win->Show();
Win32::GUI::Dialog();
1;
[download]

[idea]

My OS needed the Russian language package?