#!/usr/bin/perl
$r = exec("openssl s_client -connect site:sslport");
print $r;