Select Code to Download

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

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

print FH "<ping>";

print(FH, "<ping>");