use LWP;
my $ua = LWP::UserAgent->new();
my $request = HTTP::Request->new('GET', 'http://www.perlmonks.org/');
my $response = $ua->request($request);
die("...") unless ($response->is_success());
print($response->content());