Anonymous

#!/usr/bin/perl

use strict;
use warnings;

use HTTP::Proxy qw(:log);

open(LOGFH, '>./inetlog') || warn('Unable to log:'. $!);

my $l = HTTP::Proxy->new();
my $v = LWP::UserAgent->new();

$v->proxy(['http','ftp','https'],'http://10.10.28.101:3128');
$v->protocols_allowed(['http','https','ftp']);
$l->agent($v);
$l->port(3128);
$l->host(undef);
$l->logfh(*LOGFH);
$l->logmask(ALL);
$l->via('');
$l->x_forwarded_for(undef);

$l->start();