Hi,
Thanks for your inputs.


file myproxy.pl

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;
[download]

I have run the modified myproxy.pl file which was given. But,still i am getting the same error.
So i thought problem with my installation and installed entire configurarion in another system.

Installed ActivePerl-5.8.8.817-MSWin32-x86-257965.msi in another system and installed the following ppds.
ppm install http://theoryx5.uwinnipeg.ca/ppms/HTTP-Request-Params.ppd
ppm install http://theoryx5.uwinnipeg.ca/ppms/Email-MIME-Modifier.ppd
ppm install http://theoryx5.uwinnipeg.ca/ppms/HTTP-Recorder.ppd
ppm install http://theoryx5.uwinnipeg.ca/ppms/HTTP-Proxy.ppd
after ran the myproxy.pl , i got the same error here also.

The following error shown:

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 y
+ou forgot to load "YMSG"?) at C:/Perl/site/lib/HTTP/Recorder.pm line 
+347.
[download]

Can anybody suggest to rectify this.