#!/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; }
    }
}