Perl で LWP を使ってSSL通信

1. libwww-perl をインストール

$ sudo apt-get install libwww-perl

2. libcrypt-ssleay-perl をインストール(既にあるかも)

$ sudo apt-get install libcrypt-ssleay-perl

3. 下記のように実装(ssltest.pl)

use LWP::UserAgent;
my $url = "https://www.helsinki.fi/";
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => $url);
print $req;
my $res = $ua->request($req);
if ($res->is_success) {
print $res->as_string;
} else {
print "Failed: ", $res->status_line, "\n";
}

4. ssltest.pl を実行

$ perl ./ssltest.pl

HTMLが標準出力されれば成功