use strict;
use warnings;
use LWP::UserAgent;

my $ua = new LWP::UserAgent;
# possibly add advanced user agent options here

my $url = shift;
# possibly construct a request object here

my $response = $ua->get($url); # if not using a request object

if ($response->is_success) {
    print $response->decoded_content, "\n";
} else {
    die $response->status_line;
}

__END__