my $socket = IO::Socket::SSL->new (
	PeerAddr      => $ip, 
	PeerPort      => $port,
	SSL_ca_file => $cert_file,

	Proto         => 'tcp',
	SSL_version   => 'SSLv3',
	
	SSL_verify_mode => 1,
);
print $socket ? "OK\n" : "FAILED\n";