#!/usr/bin/perl
use strict;
use HTTP::Proxy qw(HEADERS);
# initialisation
my $proxy = HTTP::Proxy->new(port => 7890);
# set logmask to log full request and response headers
# see "perldoc HTTP::Proxy" for details
$proxy->logmask(HEADERS);
# this is a MainLoop-like method
$proxy->start;
__END__
|