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