# Add SSL options, if any, to args
    my $ssl_options = $self->_get_opt('ssl_options');
    @args{ keys %$ssl_options } = values %$ssl_options if $ssl_options;

    # Override global SSL options with request-specific ones, if any
    @args{ keys %{$args{ssl_opts}} } = values %{$args{ssl_opts}} if $args{ssl_opts};

#!/usr/bin/perl

use HTTP::Async;
use HTTP::Request::Common;
$IO::Socket::SSL::DEBUG = 3;

my $async = HTTP::Async->new(ssl_options => {SSL_verifycn_scheme => 'http'});
$async->add_with_opts(GET('https://site1.example.com'), {ssl_options => {SSL_hostname => 'site1.example.com'}});
$async->add_with_opts(GET('https://site2.example.com'), {ssl_options => {SSL_hostname => 'site2.example.com'}});

while (my $response = $async->wait_for_next_response) {
    print STDOUT $response->request->url . "\n";
    print STDOUT $response->content . "\n";
    print STDOUT $response->code . "\n";
    print STDOUT $response->message . "\n\n";
}