$socket = IO::Socket::SSL->new (
   PeerAddr   => $ip,
   PeerPort   => $port,
   Proto      => 'tcp',
   SSL_version   => 'SSLv3',
   SSL_use_cert  =>  1,
   SSL_key_file  => 'client-key.pem',
   SSL_cert_file => 'client-cert.pem',
);