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