Select Code to Download

#!/usr/bin/perl

use Data::Dumper;
...
`clear`;
$mech->follow_link( text_regex => qr/Data file for AIX 5.3/) or die;
print Dumper $mech;