AWS Lambda Sample(http)

hello.pl

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

my $url = 'http://abehiroshi.la.coocan.jp/';
my $ht = HTTP::Tiny->new();

sub handler{

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

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

1;