#!/usr/local/bin/perl use strict; use utf8; use LWP::UserAgent; main(); sub main { my $ua = LWP::UserAgent->new; $ua->timeout(10); my $res = $ua->get ('https://ないしょ.com/'); if ($res->is_success) { print $res->decoded_content; } else { die $res->status_line; } } ↑これを実行すると、次のように怒られます。 [endo@colinux tmp]$ ./foo.pl 501 Protocol scheme 'https' is not supported (LWP::Protocol::https not installed) at ./