#!/usr/bin/perl

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

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

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

$mech->proxy('http','172.17.1.248');
$mech->get( $url );
print Dumper $mech;
$a=<STDIN>;
`clear`;
$mech->follow_link( text_regex => qr/More fix services/) or die;
print Dumper $mech;
$a=<STDIN>;
`clear`;
$mech->follow_link( text_regex => qr/AIX 5.3/) or die;
print Dumper $mech;
$a=<STDIN>;
`clear`;
$mech->follow_link( text_regex => qr/Data file for AIX 5.3/) or die;
print Dumper $mech;