WWW::Mechanize is a subclass of LWP::UserAgent, which has methods for setting proxy info; see the docs for the latter.

So far I have:


#!/usr/bin/perl

use Data::Dumper;
use LWP::UserAgent;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new(cookie_jar => {}, agent => "WWW-Mechani
+ze/0.01");

$url = 'http://www.ibm.com/servers/eserver/support/pseries/aixfixes.ht
+ml';

my $ua = new LWP::UserAgent;
$ua->proxy('http','192.168.1.248');
$mech->get( $url );
$mech->follow_link( text_regex => qr/More fix services/);
$mech->follow_link( text_regex => qr/AIX 5.3/);
$mech->follow_link( text_regex => qr/Data file for AIX 5.3/);

print Dumper $mech;
[download]


But this fails as it is not going through the proxy
Thanks

UPDATED the print dump shows

                 'status' => 500,
                 'content' => '500 Can\'t connect to www.ibm.com:80 (B
+ad hostname \'www.ibm.com\')
[download]