use LWP::UserAgent;
use HTTP::Request;

use strict;

my $agent = new LWP::UserAgent();
my $req = new HTTP::Request(GET => "http://www.google.com");
my $res = $agent->request($req);
print $res->content if ($res->is_success)