use LWP::UserAgent;
use Data::Dumper;
my $ua = LWP::UserAgent->new;
$ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; compaq)');
my $request = HTTP::Request->new( 'GET', 'http://www.google.com/search?q=google+api' );
my $response = $ua->request( $request );
print Dumper $response;