из dos в win

[GrAfF]

Доброе!

use Encode;
$tmp = <STDIN>;
chomp $tmp;
$tmp = decode("cp855", $tmp);
$tmp = encode("cp1251", $tmp);
print $tmp;
open (OUT, ">55.txt") or die $!;

print OUT ($tmp);
close

Пишу консольную утилу для под win. Нужно спросить у юзера строчку (в DOS кодировке) и сконвертить её в win1251, чтобы потом создать директорию. Вышеприведённый код почти работает, т.е. почти похоже, но не то.
Что исправить или как ещё омжно написать?
Cyrillic.pm можно не советовать, он так на моей машине и не завелся.

[NeoNox]

Вообще-то уже есть консольные утилиты для этого. В *nix системах
man iconv а под винду есть порт - libiconv. Искать на sourceforge.net.

[GrAfF]

Спасибо. Но вроде же логично смотрится. Код. Но не работает.. Теперь даже интереснее именно это, а не то, как ещё можно перекодировать.

[NeoNox]

GrAfF не знаю, даже провериить не на чем.
Напиши автору модуля что не так.

[arto]

# echo "Пишу консольную утилу для под win." | iconv -f KOI8-R -t CP855 | perl -MEncode -pne \'Encode::from_to ($_,"cp855","cp1251");\' | iconv -f CP1251 -t KOI8-R
Пишу консольную утилу для под win.
#

[NeoNox]

arto откуда в виндовз iconv??