#!/usr/local/bin/perl
use strict;
use warnings;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $res = $ua->get("https://google.co.jp/");
warn $res->is_success;
warn $res->decoded_content;