I tinkered with it and this works, but I have my doubts about the utility of HTTP::Recorder. It hasn't been upgraded in five years, and it's been a few years since I used it.

#!/usr/bin/perl

use strict;
use warnings;
use HTTP::Proxy;
use HTTP::Recorder "0.03_01";
# Set everything to undef if you have no proxy-servers
# in your organisation
my %whoami = (
        # listen to every network interface on this machine:
    # host => undef,
    # host => "127.0.0.1",
        # listen only to network interface 10.1.1.5
    host => "10.95.81.5",
        # which is the port I shall listen
        port => "3128",
);

# this is for forwarding all requests to my proxy in the company
my %proxy = (
        host => "http://proxy.zdf:3128",
        user => undef,
        pass => undef,
);

# set HTTP::Recorder as the agent
my $agent = HTTP::Recorder->new(
        # Log to a file
        # file => "/tmp/tmpfile",
        file => "proxy.log",
        showwindow => 1);

# Set my own proxy to forward requests
$agent->proxy( "http", $proxy{host} )
        if $proxy{host};
my $request->proxy_authorization_basic( @proxy{ qw/user pass/ } )
        if $proxy{user};

my $proxy = HTTP::Proxy->new;
$proxy->agent( $agent );
$proxy->port(8080);
$proxy->init;
$proxy->port( $whoami{port} )
        if $whoami{port};

# Set how I get soon from my users
if ( $whoami{host} ) {
        # My interface to be reached
        $proxy->host( $whoami{host} );
}
# My port to be reached
$proxy->port( $whoami{port} );

# you may need to set the host

print "Your proxy-server in your web-browser shall be:\n";
printf "\t%s:%s\n",
    $whoami{host} ? $whoami{host} : "the_host_i_run",
    $whoami{port} ? $whoami{port} : 8080;

print "Navigate to http://http-recorder/ to download the script\n";
print "\twhich has been generated\n";

$proxy->start;
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.