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

ID 1 :$VAR1 = bless( {
                 '_request' => bless( {
                                        '_method' => 'GET',
                                        '_headers' => bless( {}, 'HTTP::Headers' ),
                                        '_content' => '',
                                        '_uri' => bless( do{\(my $o = 'https://meine.domain:443/cgi-bin/meinscript.pl?key=val')}, 'URI::https' )
                                      }, 'HTTP::Request' ),
                 '_msg' => 'Service Unavailable',
                 '_content' => '',
                 '_headers' => bless( {}, 'HTTP::Headers' ),
                 '_rc' => 503
               }, 'HTTP::Response' );

1
503

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

RewriteCond %{SERVER_PORT} !^443$
RewriteRule (.*) https://meine.domain/$1 [L]