my $ua = LWP::UserAgent->new;
$ua->proxy('http','http://192.168.0.100:80/');
my $response = $ua->get('http://server1/');