#!/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;
my $request = HTTP::Request->new(
    'GET',
    'http://meine.domain/cgi-bin/meinscript.pl?key=val',
    HTTP::Headers->new(),
);
$generiere_objekt->(\$async);
$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;
    }
}

RewriteCond %{SERVER_PORT} !^443$
RewriteCond %{QUERY_STRING} (.+)=(.+)
RewriteRule .* https://meine.domain/cgi-bin/meinscript.pl?%1=%2 [L]
RewriteCond %{SERVER_PORT} !^443$
RewriteRule (.*) https://meine.domain/$1 [L]