#!/usr/bin/perl

use strict;
use warnings;
use LWP::Protocol::AnyEvent::http;
use Coro qw( async );

my $ua = LWP::UserAgent->new();
$ua->protocols_allowed([qw( http https )]);