Select Code to Download

#!/usr/bin/perl

...
$mech->follow_link( text_regex => qr/Data file for AIX 5.3/);

print Dumper $mech;

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