1#!/usr/bin/perl -w
2# yeah, I know, I write UK English ;-)
3use HTTP::Proxy qw( :log );
4use HTTP::Proxy::HeaderFilter::simple;
5use strict;
6
7# a very simple proxy
8my $proxy = HTTP::Proxy->new( @ARGV );
9
10# the anonymising filter
11$proxy->push_filter(
12    mime    => undef,
13    request => HTTP::Proxy::HeaderFilter::simple->new(
14        sub { $_[1]->remove_header(qw( User-Agent From Referer Cookie Cookie2 )) }
15    ),
16    response => HTTP::Proxy::HeaderFilter::simple->new(
17        sub { $_[1]->remove_header(qw( Set-Cookie Set-Cookie2 )) }
18    )
19);
20
21$proxy->start;
22