use strict; 
use warnings; 
use 5.020;

use LWP::UserAgent ();
use Data::Dumper;
 
my $ua = LWP::UserAgent->new(timeout => 10);
$ua->ssl_opts( 
	SSL_ca_file => 'X:\etc\ssl\certs\cacert.pem',
	verify_hostname => 1,
);
$ua->agent('Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/126.0.0.0 Safari/537.36');
 
my $response = $ua->get('https://gwendragon.de');
 
if ($response->is_success) {
    print $response->decoded_content;
}
else {
    say $response->status_line;
	say Dumper $response;
}