use strict;
use warnings;

use HTTP::Request::Common;
use LWP::UserAgent;
use Data::Dumper;

my $ua = LWP::UserAgent->new();
my $response = $ua->request(GET "http://some.url");

print $response->headers_as_string;
print $response->content;
print $reponse->is_success;
print $response->status_line;
print Dumper($response);