use strict;
use WWW::Mechanize;

my $mech_cgi = WWW::Mechanize->new;
my $mech_mod = WWW::Mechanize->new;

$mech_cgi->get( 'http://www.foo.com/cgi/' );
$mech_mod->get( 'http://www.foo.com/modperl/' );

my @cgi_links = $mech_cgi->find_all_links( text_regex => qr/Example/ );

my @mod_links = $mech_mod->find_all_links( text_regex => qr/Example/ );

# test the first ten
for( 0..9 ) { 
    print "following link: ", $cgi_links[$_]->url, "\n";
    $mech_cgi->follow_link( url => $cgi_links[$_]->url )
      or die "Error following link ", $cgi_links[$_]->url;

    print "following link: ", $mod_links[$_]->url, "\n";
    $mech_mod->follow_link( url => $mod_links[$_]->url )
      or die "Error following link ", $mod_links[$_]->url;

    # do some stuff
    print "finished link $_\n";
}