use IO::Socket::SSL qw(debug4);
use Data::Dumper;


    # simple HTTP client -----------------------------------------------
    my $sock = IO::Socket::SSL->new(
        # where to connect
        PeerHost => "mail.google.com",
        PeerPort => "443",
        SSL_verify_mode => SSL_VERIFY_PEER,
	    SSL_ca_path => 'C:\\Users\\Simon\\ptest\\certs'
    ) or die "failed connect or ssl handshake: $!,$SSL_ERROR";