use strict;
use warnings;

use IO::Socket::SSL       qw(debug3);

my $socket = IO::Socket::SSL->new
(	PeerAddr    => 'some.server.com',
	PeerPort   => 443,
	Proto    => 'tcp',
	SSL_use_cert => 1,
	SSL_verify_mode => SSL_VERIFY_NONE,
	SSL_cert_file   => 'server.pem'
) or die "failed connect or ssl handshake: $!,",&IO::Socket::SSL::errstr,"\n";