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__