use strict;
use WWW::Mechanize;
use Storable;

my $mech_cgi = WWW::Mechanize->new( autocheck => 0 );

$mech_cgi->get( 'http://www.molmovdb.org/cgi-bin/browse.cgi' );

my @cgi_links = $mech_cgi->find_all_links( url_regex => qr/motion.cgi/ );

for my $link ( @cgi_links ) {  # no C-style loop...
  print "following link: ", $link->url, "\n";

  my $res = $mech_cgi->follow_link( url => $link->url );
  # $res is a HTTP::Response object

  if ( $res->is_success ) {
    print "OK : Processing result ...\n";
  } else {
    print "ERR: Failed to retrieve page: ", $res->status_line, "\n";
  }

  $mech_cgi->back;
 
  sleep 5; # anti-aggressive scraping
}