#!/usr/bin/perl
use strict;
use IO::Socket::SSL qw(debug3);


print  $IO::Socket::SSL::VERSION, "\n";


    my $client = IO::Socket::INET->new('name:32102') or die $!;
    IO::Socket::SSL->start_SSL($client,
        # explicitly set hostname we should use for SNI
       SSL_hostname => 'name',
        SSL_verify_mode => SSL_VERIFY_PEER,
        SSL_ca_file => 'CA.pem',
       SSL_key_file => '/client.p12',
  
    ) or die $SSL_ERROR;
print $client "GET /rest/
               openid:1234";
print <$client>;