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

use strict;
use WWW::Mechanize;
use Text::Iconv;
use Convert::Cyrillic;
use Lingua::DetectCharset;

my $path = "E:\\input";

opendir FDIR, $path;
my @files = readdir(FDIR);
closedir(FDIR);

my $i = 2;
while (@files[$i]){

my $file_to_upload = $path.'\\'.@files[$i];

substr(@files[$i],-4) = '';

my $charset = Lingua::DetectCharset::Detect(@files[$i]);

print "encode ".$charset."\n";

my $iconv_koi2u = Text::Iconv->new("cp1251", "utf-8");
@files[$i] = $iconv_koi2u->convert(@files[$i]);

print "encode3 ".$charset."\n";

my $mech = WWW::Mechanize->new();
$mech->agent_alias( 'Windows Mozilla' );
$mech->get('http://www.yyy.com//literature.php?p=history');
$mech->submit_form(
with_fields => {
file_domain => $file_to_upload,
name_file => @files[$i],
}, );

$i++;
}