[vadimiron]

setlocale(LC_CTYPE,"ru_RU.UTF-8");

Я правда в этом не так сильно разбераюсь, но при чём тут ru_RU? Вроде для UTF-8 всё равно должно быть, то наверно должно просто UTF-8 стоять.
Или так для других целей пишут?

[benya]

Перепробовал все варианты. Полазив по сайтам показалось что у Перла проблемы с utf-8. Для этого есть какие-то "прагмы".
Убрал это :

Код:

use locale;
use POSIX qw(locale_h);
setlocale(LC_CTYPE,"ru_RU.UTF-8");

Поставил это:

Код:

use utf8;

Хотя есть еще один вариант:

Код:

use encoding 'cp1251', STDOUT => 'koi8-r';

P.S. Вроде работает