Проблемы с кодировкой на perl

[EvLeS]

Есть некий скрипт на perl который считывает текст из текстового файла и далее передает через через POST на форму,все работает если текст латинскими буквами,а вместо кирилицы постит вопросики.Проблему можно решить только если файл с текстом сохранть в UTF-8.
Вопрос, можно ли как решить проблему средствами perl ?(чтобы текстовик был в виндовой кодировке и кирилица бы корректно постилась)

 

[B1rdEX]

А хеадер с кодировкой правильный выводишь?

 

[bliss]

перед тем как постить строку надо конвертнуть в utf.

use Encode;

sub toutf8 {
#takes: $from_encoding, $text
#returns: $text in utf8
    my $encoding = shift;
    my $text = shift;
    if ($encoding =~ /utf\-?8/i) {
        return $text;
    }
    else {
        return Encode::encode("utf8", Encode::decode($encoding, $text));
    }
}

 

[EvLeS]

перед тем как постить строку надо конвертнуть в utf.

use Encode;

sub toutf8 {
#takes: $from_encoding, $text
#returns: $text in utf8
    my $encoding = shift;
    my $text = shift;
    if ($encoding =~ /utf\-?8/i) {
        return $text;
    }
    else {
        return Encode::encode("utf8", Encode::decode($encoding, $text));
    }
}

Что то не выходит и таким способом,всеравно выдает крякорябы..