my $UA = LWP::UserAgent->new;
                
$UA->agent("Mozilla/4.0");
$UA->protocols_allowed(['http','https']);


my $SRV = HTTP::Daemon->new(LocalPort => 3128);

while (my $conn = $SRV->accept) {
  
    while (my $request = $conn->get_request) {

         my $resp = $UA->simple_request($request);
   	    $conn->send_response($resp);        
    }
  $conn->close;

}