#!/usr/bin/perl

use Data::Dumper;
use LWP::UserAgent;
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';

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;

##</code><code>##

                 'status' => 500,
                 'content' => '500 Can\'t connect to www.ibm.com:80 (Bad hostname \'www.ibm.com\')