use LWP::UserAgent; 
use strict;
use warnings;

$ENV{HTTPS_DEBUG} = 1;
$ENV{HTTPS_CA_FILE} = 'X:/etc/ssl/certs/ca-certificates.crt';
$ENV{HTTPS_CA_PATH} = 'X:/etc/ssl/certs/';

my $ua  = LWP::UserAgent->new; 
my $req = HTTP::Request->new(GET => 'https://www.bsi.bund.de');
my $res = $ua->request($req);
print $res->headers_as_string;