#!/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);
print $res->decoded_content;