Select Code to Download

my $client = new IO::Socket::SSL(
          PeerAddr        => "srs.neulevel.biz",
...
          SSL_key_file => "my-cert.key",
          SSL_cert_file => "my-chain.pem",
);

keytool -printcert my-chain.pem | grep -E '^(Owner|Issuer)'
# you should see output like
...

Owner=Some Cert authority Root
Issuer=Some Cert authority Root