use Data::Dumper;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new(
        cookie_jar => {},
        agent => "WWW-Mechanize/0.01",
        protocols_allowed => ['http','https'],
        protocols_forbidden => [undef],
        autocheck => 1);

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

$mech->proxy('http','http://PROXY/');
$mech->get( $url );
#print Dumper $mech;
$mech->follow_link( text_regex => qr/More fix services/) or die;
#print Dumper $mech;
$mech->follow_link( text_regex => qr/AIX 5.3/) or die;
#print Dumper $mech;
$mech->follow_link( text_regex => qr/Data file for AIX 5.3/) or die;
#print Dumper $mech;
$mech->get('http://www-912.ibm.com/eserver/support/fixinfo/download?file=LatestFixData53');
print $mech->content;