Использование perl LWP::Protocol::socks

[omega]

Не работает следующий стандартный код:

#!/usr/local/bin/perl
 use strict;
 use LWP::UserAgent;
 my $ua = new LWP::UserAgent(agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.5) Gecko/20060719 Firefox/1.5.0.5');
 $ua->proxy([qw(http https)] => 'socks://socks.yahoo.com:1080');
 my $response = $ua->get("http://www.freebsd.org");
 print $response->code,' ', $response->message,"\n";
 my $response = $ua->get("https://www.microsoft.com");
 print $response->code,' ', $response->message,"\n";

Соотв модуль установлен:

sudo cpan LWP::Protocol::socks

Вместо этого socks.yahoo.com:1080 вписан рабочий сокс.
Если закоментировать строку $ua->proxy([qw(http https)] => 'socks://socks.yahoo.com:1080'); все работает.
Причем скрипт не возвращает ни ошибок, ничего.

Кто сталкивался помогите.

 

[t0wer]

это суть в самом модуле LWP:rotocol::http::socks

почитайте Для просмотра ссылки Войди или Зарегистрируйся и это по Для просмотра ссылки Войди или Зарегистрируйся