прокси в UserAgent

[lingod]

как установить атрибут proxy или no_proxy в UserAgent?

[NeoNox]

perldoc lwpcook

 You should initialize your proxy setting before you start
       sending requests:


         use LWP::UserAgent;
         $ua = LWP::UserAgent->new;
         $ua->env_proxy; # initialize from environment variables
         # or
         $ua->proxy(ftp  => \'http://proxy.myorg.com\');
         $ua->proxy(wais => \'http://proxy.myorg.com\');
         $ua->no_proxy(qw(no se fi));