#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
require Data::Dumper; Data::Dumper->import(qw(Dumper));
use 5.010;

my $generiere_objekt = sub {
	my ($var) = @_;
	if (!defined $$var) {
		$$var = HTTP::Async->new(
			timeout				=> 10,
			max_request_time	=> 15,
			cookie_jar          => defined,
		);
	}
};
my $async;
my $id_entfernt = 0;

require HTTP::Async;
require HTTP::Request::Common;
use Net::HTTPS::NB;
my $request = HTTP::Request->new(
	'GET',
	'https://meine.domain:443/cgi-bin/meinscript.pl?key=val',
	HTTP::Headers->new(),
);
$generiere_objekt->(\$async);
my %ssl_options = (
	verify_hostname	=> 0,
	blocking		=> 0,
);
$async->ssl_options(\%ssl_options);
$id_entfernt = $async->add($request);

if (defined $async) {
	while (my($response,$id) = $async->wait_for_next_response) {
		say "ID $id :",Dumper($response);
		say $response->is_error;
		say $response->code;
	}
}