Help for this page

Select Code to Download

Select or download this

use warnings;
use strict;
use Encode qw(encode decode);
...
# Çirçös
# Ã‡irÃ§Ã¶sâ€”
# Wide character in print at D:/EPIC_workspace/PERL/Bibliography/test.
+pl line 10.

Select or download this

# Get the constant.
use Win32::OLE 'CP_UTF8';
# Set the code page of Win32::OLE.
$Win32::OLE::CP = CP_UTF8;