Certs

use Net::SSLeay; use Data::Dumper; print < Certs EOH $ssl = Net::SSLeay::SESSION_new(); $certs = Net::SSLeay::dump_peer_certificate($ssl); print "Certs Dump: "; print Dumper($certs); print "
\n"; print "\n\n"; ##

##