use strict;
use warnings;

use LWP::UserAgent;
use LWP::Debug qw(+);

$ENV{HTTP_Proxy} = 'http://192.168.2.1:8118';

my $browser = LWP::UserAgent->new(keep_alive => 1);
$browser->env_proxy(1);
my $url = "https://www.hsbc.co.uk/";
my $response = $browser->get($url);
print $response->as_string();