HTTP::Proxy is a web proxy written in pure Perl.
And quite simple to use:
#!/usr/bin/perl -w use HTTP::Proxy; use strict; # a very simple proxy HTTP::Proxy->new->start;