use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ENV{ http_proxy } ='http://localhost:80';
$ua->env_proxy;
print  $ua->get( 'http://www.google.com' )->as_string;