Help for this page
$socket = IO::Socket::SSL->new ( PeerAddr => $ip, ... SSL_version => 'SSLv3', SSL_verify_mode => 0x02 );