#!/usr/bin/perl
use strict;
use warnings;
use HTTP::Proxy qw(:log);
my $proxy = new HTTP::Proxy;
$proxy->port(8089);
$proxy->logfh(*STDOUT);
$proxy->logmask(ALL);
$proxy->start;