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;

##</code><code>##

D:\perl programs>myproxy.pl

Use of uninitialized value in pattern match (m//) at C:/Perl/site/lib/Email/MIME.pm line 90.
Use of uninitialized value in pattern match (m//) at C:/Perl/site/lib/Email/MIME.pm line 90.
Use of uninitialized value in pattern match (m//) at C:/Perl/site/lib/Email/MIME.pm line 90.
Use of uninitialized value in pattern match (m//) at C:/Perl/site/lib/Email/MIME.pm line 90.
Use of uninitialized value in pattern match (m//) at C:/Perl/site/lib/Email/MIME.pm line 90.
Use of uninitialized value in pattern match (m//) at C:/Perl/site/lib/Email/MIME.pm line 90.
Use of uninitialized value in pattern match (m//) at C:/Perl/site/lib/Email/MIME.pm line 90.
Use of uninitialized value in pattern match (m//) at C:/Perl/site/lib/Email/MIME.pm line 90.
Use of uninitialized value in pattern match (m//) at C:/Perl/site/lib/Email/MIME.pm line 90.
Use of uninitialized value in pattern match (m//) at C:/Perl/site/lib/Email/MIME.pm line 90.
Use of uninitialized value in pattern match (m//) at C:/Perl/site/lib/Email/MIME.pm line 90.
Use of uninitialized value in pattern match (m//) at C:/Perl/site/lib/Email/MIME.pm line 90.
Can't locate object method "query_param" via package "YMSG" (perhaps you forgot to load "YMSG"?) at C:/Perl/site/lib/HTTP/Recorder.pm line 347.