レガシーコードの置き換え。そして高速になった！ use LWP::UserAgent; use Furl; sub get_html { my ($url, $opt) = @_; if($opt && $opt eq "lwp") { my $lwp = LWP::UserAgent->new(); my $res = $lwp->get($url); unless ($res->is_success) { return; }…