gistfile1.txt

use strict;
use HTTP::Async;
use HTTP::Request;

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

use URI;

my $async = HTTP::Async->new( );

my $a = HTTP::Request->new(
  GET => 'https://eokoe.com',
  [

  ]
);

print STDERR $a->as_string;

# create some requests and add them to the queue.
$async->add($a);
while ( $async->not_empty ) {
  if ( my $response = $async->next_response ) {

    print STDERR $response->as_string;
  }
  else {
    # do something else
  }
}