#!/usr/bin/perl

use HTTP::Proxy;
use HTTP::Recorder;

my $proxy = HTTP::Proxy->new();
#$proxy->host("my host name");
    #I tried this with and without above line
    # create a new HTTP::Recorder object
    my $agent = new HTTP::Recorder ( file => "myfilezzz" )
                  or die;
    #$agent->proxy('http', "real-proxy");
    #I tried with and without above line
 	
    # set HTTP::Recorder as the agent for the proxy
    $proxy->agent( $agent );

    # start the proxy
    $proxy->start();
    1;