!d:\Strawberry_Perl\perl\bin\perl.exe 

use strict;
use warnings;

use LWP::Protocol;
use LWP::UserAgent;
use Mozilla::CA;
use CGI qw(:standard);
my $q= new CGI;
print $q->header;
my $B = new LWP::UserAgent (keep_alive => 1, agent => 'Mozilla/5.0', cookie_jar =>{});
print qq(@INC);
my $proxy = 'http://vproxy.ab.de:80'; 
my $Skript = "http:\/\/$ENV{SERVER_NAME}$ENV{SCRIPT_NAME}";


$B->proxy( ['http', 'https'] => $proxy );

$ENV{HTTPS_PROXY} = $proxy;	
$ENV{'PERL_LWP_SSL_CA_PATH'} = "D:\\CA_certs\\input\\certs";	



$B->ssl_opts( SSL_ca_file => Mozilla::CA::SSL_ca_file() );
$B->ssl_opts( verify_hostname => 0 );
my $GET = $B->get('https://moz.com ')->content;
print $GET, "<br>";