#! /usr/bin/perl

use strict;
use HTTP::Proxy qw( :log );

my $proxy = new HTTP::Proxy;

$proxy->port( 8081 );
$proxy->logfh( *STDOUT );
$proxy->logmask( ALL );
$proxy->start;