Mojo client verification and get certificate info

Readme

Generate 2 certficate:
openssl req  -nodes -new -x509  -keyout client.key -out client.cert
openssl req  -nodes -new -x509  -keyout server.key -out server.cert

run server:
 morbo server.pl -l 'https://*:3000?cert=./server.cert&key=./server.key&ca=client.cert'
 
run client:
openssl s_client -connect 127.0.0.1:3000 -cert client.cert -key client.key
GET / HTTP/1.0

server.pl

#!/usr/bin/perl

use Mojo::IOLoop;
use Mojolicious::Lite;
use IO::Socket::SSL;

get '/' => sub {
  my $c = shift;
  warn ref Mojo::IOLoop->stream($c->tx->connection)->handle;
  warn Mojo::IOLoop->stream($c->tx->connection)->handle->peer_certificate('cn');
  $c->render(text => 'qwe');
};

app->start;