The easiest way to get this to work is to use the following modules: HTTP::Proxy, and HTTP::Recorder

Check the CPAN documentation on them.

HTTP::Proxy sets up a proxy server, which you can set your browser to use.
HTTP::Recorder sits in the proxy and records your actions and generates a script for WWW::Mechanize to use.

Example code using these modules:

    use HTTP::Proxy;
    use HTTP::Recorder;

    my $file = /path/to/file/to/log;

    my $proxy = HTTP::Proxy->new(port => 3128);

    # create a new HTTP::Recorder object
    my $agent = new HTTP::Recorder;

    # set the log file (optional)
    $agent->file($file);

    # set HTTP::Recorder as the agent for the proxy
    $proxy->agent( $agent );

    # start the proxy
    $proxy->start();
[download]