500 Can't connect to www.rationalgalerie.de:443
Content-Type: text/plain
Client-Date: Fri, 14 Feb 2025 11:49:19 GMT
Client-Warning: Internal response

Can't connect to www.rationalgalerie.de:443

Bad file descriptor at C:/Perl64/lib/LWP/Protocol/http.pm line 47.

package XHR; # Analog zu JavaScript XHR

use strict;
use warnings;
use HTTP::Request;
use LWP::UserAgent;

sub new{
    my $class = shift;
    my $callback = shift;
    bless { ua => LWP::UserAgent->new(), cb => $callback }, $class;
}
sub request{
    my $self = shift;
    my %par = (
        method  => 'GET',
        uri     => '',
        content => '',
        header  => [],
        @_    
    );
    my $r = HTTP::Request->new( @par{qw(method uri header content)} );
    my $res = $self->{ua}->request($r);
    $self->{cb}->($res);
}
###########################################################################
package main;

use strict;
use warnings;

sub callback{
    my $self = shift; # Response Objekt
    print $self->as_string;
}

my $xhr = new XHR(*callback);
$xhr->request(
    uri => 'https://www.rationalgalerie.de/',
);