use LWP;
my $web_agent = LWP::UserAgent->new();
$web_agent->proxy('http', 'http://proxy_ip:port');
my $request = HTTP::Request->new(GET => 'http://www.adres.ru/' );
my $response = $web_agent->request($request);