perl кодировка

[eLWAux]

создаю pl файл:
print 'say:привет';

запускаю, и вижу:
say:яЁштхЄ

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

[Kaimi]

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

[eLWAux]

сделал..

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

чтоб просмотреть символи:
for ($i=128;$i<176;$i++){print "$i : ".chr($i)."\n";}
for ($i=224;$i<239;$i++){print "$i : ".chr($i)."\n";}

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