#!/usr/bin/perl
use HTTP::Proxy;
# initialisation
my $proxy = HTTP::Proxy->new( host => '172.23.140.208', port => 7788 );
# this is a MainLoop-like method
$proxy->start;