#!/usr/bin/perl

use strict;
use HTTP::Proxy::ContentRange;

my $Superproxy = "http://you-upstream-proxy-here";
my $Proxy = HTTP::Proxy::ContentRange->new();

$Proxy->init();

{
    my $ua = $Proxy->agent();
    $ua->proxy(['http', 'ftp'], $Superproxy );
    $ua->protocols_allowed( ['http', 'ftp'] );
}

$proxy->start();