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

my $request_uri = '';
my $ua          = LWP::UserAgent->new;
$ua->protocols_allowed( [ 'http', 'https' ] );
$ua->ssl_opts( verify_hostnames => 1 );

$ua->add_handler( "request_send",  sub { shift->dump; return } );
$ua->add_handler( "response_done", sub { shift->dump; return } );

$ua->agent("Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/85.0.4183.106 Safari/537.36");

$ua->proxy(['http', 'https'], 'http://localhost:8001/');


$request_uri = 'https://example.org/';

my $response = $ua->get($request_uri);
print $response->decoded_content;