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

##</code><code>##

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

##</code><code>##

print FH "<ping>";

##</code><code>##

print(FH, "<ping>");