HTTP::Recorder -------------- #!/usr/bin/perl use HTTP::Proxy; use HTTP::Recorder; my $proxy = HTTP::Proxy->new( port => 3128 ); # create a new HTTP::Recorder object my $agent = HTTP::Recorder->new( file => "/tmp/webproxy", showwindow => 1 ); # set HTTP::Recorder as the agent for the proxy $proxy->agent( $agent ); $proxy->host(undef); # start the proxy $proxy->start(); 1;