не могу уже которые сутки зайти на фтп через firewall с авторизацией.
Срочно нужна помощь спецов в решении данного вопроса.

Да ошибся . не срочно. но очень хочется сделать сегодня.

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

#процедура подключения к ФТП серверу с контролем ошибок
sub connect_to_ftp
{
my ($ftp_ip, $ftp_login, $ftp_password, $ftp_firewall, $ftp_port, $ftp_timeout, $ftp_debug, $ftp_passive) = @_;
my $ftp;
if (eval{# коннектимся
if ($ftp_firewall eq '0')
{ $ftp = Net::FTP->new($ftp_ip , Timeout => $ftp_timeout, Debug => $ftp_debug, Passive=> $ftp_passive) .. die $ftp->message; }
else
{ $ftp = Net::FTP->new($ftp_ip , Firewall => $ftp_firewall, Timeout => $ftp_timeout, Debug => $ftp_debug, Passive=> $ftp_passive) .. die $ftp->message; }
# логинимся
$ftp->login($ftp_login, $ftp_password);
# переключаемся в бинарный режим
$ftp->binary;
})
{return($ftp);
}
else
{print "Cannot connect to ftp server (IP: $ftp_ip):";
return(1);
}
};

my $ftp = connect_to_ftp('ftp.takoito.ru', 'loginname', 'пароль','101.47.64.33:3128', '3128', 60, 1, 1);