AWS Lambda Sample(https)

hello.pl

#!/usr/bin/env perl
use strict;
use warnings;
use HTTP::Tiny;

my $url = 'https://www.yahoo.co.jp/';
           
my $ht = HTTP::Tiny->new();

sub handler{

    my $res = $ht->get($url);
    $res->{content} =~ /<title>(?<title>.+?)<\/title>/;

    return {
        status  => $res->{status},
        title   => $+{title},
    }
}

1;