$socket = IO::Socket::SSL->new (
   PeerAddr   => $ip,
   PeerPort   => $port,
   Proto      => 'tcp',
   SSL_version   => 'SSLv3',
   SSL_verify_mode => 0x02
);