perl кодировка

создаю pl файл:

Code:

print 'say:привет';

запускаю, и вижу:

Code:

say:яЁштхЄ

вопрос: как мне вивести

Code:

say:привет

??

 

Юзая функции ord и char определить какое смещение у символов и написать свою функцию для вывода текста в консоль

 

сделал..

Code:

print (chr(175).chr(224).chr(168).chr(162).chr(165).chr(226));

чтоб просмотреть символи:

Code:

for ($i=128;$i<176;$i++){print "$i : ".chr($i)."\n";}
for ($i=224;$i<239;$i++){print "$i : ".chr($i)."\n";}

мм..
интересно, а больше никак нельзя?