#!perl
use HTTP::Proxy;
my $port=8080;
# initialisation
my $proxy = HTTP::Proxy->new( port => $port );
# this is a MainLoop-like method
print "Running proxy on port $port\n";
$proxy->start;