#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use LWP::UserAgent;
use URI;
my $ua = LWP::UserAgent->new;
my $uri = URI->new('https://www.google.com/');
my $res = $ua->get($uri);
unless ($res->is_success) { die }
if ($res->content_type ne 'text/html') { die }
print $res->decoded_content;