1#!/usr/bin/perl -w 2use HTTP::Proxy qw( :log ); 3use strict; 4 5# a very simple proxy 6my $proxy = HTTP::Proxy->new(@ARGV); 7$proxy->start; 8