IO::Socket::SSL & NPN

gistfile1.pl

##### SSL client example #####

use IO::Socket::SSL;
my $client = IO::Socket::SSL->new(
               PeerAddr=>"encrypted.google.com:https",
               SSL_npn_protocols=>['spdy/2','http/1.1'],
            ) or die;
warn "Negotiated:", $client->next_proto_negotiated(), "\n";


##### SSL server example #####
# try connect via: openssl s_client -connect localhost:5443 -nextprotoneg proto1,protoB,protoA,proto2

use IO::Socket::SSL;
my $server = IO::Socket::SSL->new(
               LocalAddr=>'127.0.0.1',
               LocalPort=>5443,
               Proto=>'tcp',
               Listen => 5,
               SSL_npn_protocols=>['protoX','protoA','protoB'],
            ) or die;
my $s = $server->accept();
warn "Negotiated:", $s->next_proto_negotiated(), "\n";