кодировка cp1251 в perl

Есть массив вида:
@ 1 = ("Веб дизайн \n","кпз \n","лми \n");
и выводrint (@1);
выводиться:
╘шч-Ёр
ыьш
юяш

что надо добавить в коде, что бы вывод отображался в сp1251?

 

Убедитесь, что сам файл сохранён в кодировке win-1251, первым print-ом в скрипте отправляйте заголовки:

Code:

print "Content-type: text/html; charset=win-1251\n\n";

 

да мне в консоле windows надо отобразить

 

Дак в win консоли же кодировка cp*, вот в нее и переводи для нормального отображения.

 

а можно хотя бы пример кода.... а то в гугле попробывал много а не получаеться нормально отбразить

 

Да дофига в гугле способов, например:

Code:

use Encode qw/from_to/;

$str = 'вася';
from_to($str, 'cp1251', 'cp866');
print $str;