use strict;
use warnings;

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

my $proxy = HTTP::Proxy->new( port => 3128 );

my $agent = new HTTP::Recorder;

#Try C:\Desktop\Agent\log
$agent->file("/home/Desktop/Agent/log");

$proxy->agent( $agent );

$agent->control(["http://127.0.0.1"]);

$proxy->start();

1;