#!/usr/bin/perl
use strict;
use warnings;
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 $request_id = 0;

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

if (defined $async) {
	while (my($response,$id) = $async->wait_for_next_response) {
		if ($response->is_success) { say $response->decoded_content; }
		else { say "Fehler ",$response->status_line; }
	}
}