#!/usr/bin/perl
use HTTP::Proxy;
my $proxy = HTTP::Proxy->new;
#$proxy->maxconn(1);
$proxy->port( 3128 );
$proxy->logmask( shift || NONE );

$proxy->start;