Perl

[][-user]

собственно-место,где создается сокет:

use Tk;
use Tk::Menu;
use LWP::UserAgent;

как ее-модифицировать,чтобы она работал через сокс? :help:

 

[not null]

При использовании LWP::UserAgent

$ua->proxy(http => "http://proxy:proxy_port");

где $ua:

$ua = LWP::UserAgent->new;

Все запросы, отсылаемые с помощью LWP::Useragent после строки из первого листинга будут идти через указанный прокси

 

[][-user]

то бишь полный код будет выглядеть так?

use Tk;
use Tk::Menu;
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->proxy(http => "http://xxx.xxx.x.xx:xxxx");

а то в некоторых сокет создается не так,и запускать его только с шелла анонимно можно :unsure: