#!/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__
[download]