cygwinでssl接続

したかったので、調べてみた。
ssldumpなるものがあるらしいが、
結構古いらしく微妙。

結果perlのIO::Socket::SSLでたたく。
cpanのinstall Net::SSLeayで結構詰まるも適当に検索して解決。

実際たたくコードはこんな感じ。
telnet風に気軽にsslたたければいいのに。。。

use IO::Socket::SSL;

my $client = new IO::Socket::SSL("example.com:https");

if (defined $client) {
print $client 'GET / HTTP/1.0';
print <$client>;
close $client;
} else {
warn "I encountered a problem: ", &IO::Socket::SSL::errstr();
}