1 2 3 4 5 6 7 8 9 10
print "1..1\n"; use OpenSSL; if ($OpenSSL::VERSION ne '') { print "ok 1\n"; } else { print "not ok 1\n"; }