#!/usr/bin/perl
open(FH,"-|","openssl s_client -connect site:sslport");
while(<FH>){ print $_; }
close(FH);