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