use LWP::UserAgent;
my $u = LWP::UserAgent->new; $u->proxy("http","http://www.apache.org/"); 
print $u->get("http://google.com/")->as_string;