#!/usr/bin/perl

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

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

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

$mech->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;