use strict;
use warnings;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new();
$ua->proxy(['http', 'ftp'], 'http://192.168.64.1:3128/');
my $req = HTTP::Request->new('GET','https://twitter.com/?lang=en');
my $res = $ua->request($req);
print $res->status_line;