#!/usr/bin/perl
use HTTP::Proxy;
use LWP::UserAgent;
use HTTP::Proxy::HeaderFilter::simple;
my $proxy = HTTP::Proxy->new;
#$proxy->maxconn(0); #Unlimited
$proxy->port( 3128 ); #or any othere port, but this is the most 3l337 !
$proxy->logmask( shift || NONE );
my $agent = LWP::UserAgent->new;
#$agent->proxy('http', "http://blablabla.bla:blabla");
$proxy->agent( $agent );
$proxy->push_filter(
        mime    => undef,
        request => HTTP::Proxy::HeaderFilter::simple->new(
            sub { $_[0]->remove_header(qw( User-Agent From Referer Cookie )) },
        ),
        response => HTTP::Proxy::HeaderFilter::simple->new(
            sub { $_[0]->remove_header(qw( Set-Cookie )); },
        )
    );
$proxy->start;