#!/usr/bin/perl

use HTTP::Proxy;
use HTTP::Recorder;
my $proxy = HTTP::Proxy->new( port => 3128 );
my $agent = new HTTP::Recorder;
$agent->file("/tmp/myfile");
$proxy->agent( $agent );
$proxy->start();

1;

##</code><code>##

Can't locate object method "query_param" via package "goog-malware-shavar;a:28110-35247:s:40850-47742:mac
goog-phish-shavar;a:130797-135112:s:67196-68895:mac
" (perhaps you forgot to load "goog-malware-shavar;a:28110-35247:s:40850-47742:mac
goog-phish-shavar;a:130797-135112:s:67196-68895:mac
"?) at /usr/local/share/perl/5.10.0/HTTP/Recorder.pm line 347.
[Mon Apr  4 22:14:13 2011] (17230) ERROR: Getting request failed: Client closed
[Mon Apr  4 22:24:00 2011] (17323) ERROR: Getting request failed: sysread: Connection reset by peer
Can't locate object method "query_param" via package "rec-action=submitform&rec-formname=&rec-formnumber=2&rec-https=1&rec-form2-text-keys=1&keys=hesco-test2&rec-form2-submit-op=1&op=Search&rec-form2-hidden-form_build_id=1&form_build_id=form-6d45e9ace1a3033599dabedd422d983a&rec-form2-hidden-form_token=1&form_token=2658acbbc0de3c846c50d58414825068&rec-form2-hidden-form_id=1&form_id=search_form" (perhaps you forgot to load "rec-action=submitform&rec-formname=&rec-formnumber=2&rec-https=1&rec-form2-text-keys=1&keys=hesco-test2&rec-form2-submit-op=1&op=Search&rec-form2-hidden-form_build_id=1&form_build_id=form-6d45e9ace1a3033599dabedd422d983a&rec-form2-hidden-form_token=1&form_token=2658acbbc0de3c846c50d58414825068&rec-form2-hidden-form_id=1&form_id=search_form"?) at /usr/local/share/perl/5.10.0/HTTP/Recorder.pm line 347.

Can't call method "query_param" without a package or object reference at /usr/local/share/perl/5.10.0/HTTP/Recorder.pm line 347.
Use of uninitialized value $args{"value"} in substitution (s///) at /usr/local/share/perl/5.10.0/HTTP/Recorder/Logger.pm line 171.
Use of uninitialized value $args{"value"} in concatenation (.) or string at /usr/local/share/perl/5.10.0/HTTP/Recorder/Logger.pm line 173.
Use of uninitialized value $args{"value"} in substitution (s///) at /usr/local/share/perl/5.10.0/HTTP/Recorder/Logger.pm line 171.
Use of uninitialized value $args{"value"} in concatenation (.) or string at /usr/local/share/perl/5.10.0/HTTP/Recorder/Logger.pm line 173.