use strict;
use warnings;
use HTTP::Tiny;

my $url = shift;
my $response = HTTP::Tiny->new->get($url);

if ( $response->{success} ) {
     print "OK: $response->{content}\n";
} else {
     print "Failed: $response->{status} $response->{reason}\n";
}

__END__

##</code><code>##

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__