#!/usr/bin/perl

use HTTP::Daemon;
use LWP::UserAgent;
use threads;

my $proxy = HTTP::Daemon->new( LocalPort => 3128, Listen => 20, Reuse=>1) || die;

while (my $conn = $proxy->accept)
{
  threads->create(\&process_one_req, $conn)->detach();
}

sub process_one_req
{
  my $conn = shift;
  my $request = $conn->get_request;
  my $ua = LWP::UserAgent->new;

  print $request->uri,"\n";

  my $response = $ua->simple_request($request);
  $conn->send_response($response);

  $conn->close;
  undef($conn);
  undef($ua);
} ## end sub process_one_req