my $client = new IO::Socket::SSL(
          PeerAddr        => "srs.neulevel.biz",
          PeerPort        => 700,
          Proto           => 'tcp',
          SSL_use_cert => 1,
          SSL_key_file => "my-cert.key",
          SSL_cert_file => "my-chain.pem",
);

##</code><code>##

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

Owner=Intermediate A
Issuer=Intermediate B

Owner=Intermediate B
Issuer=Some Cert authority Root

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