my $url = 'http://www.example.com';

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

print "$response->{status} $response->{reason}\n";
print $response->{content} if length $response->{content};