#!/usr/bin/perl --
use strict;
use warnings;

use WWW::Mechanize;

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

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

my @Motion = $mech_cgi->find_all_links( url_regex => qr/motion.cgi/ );
@Motion = map { $_->url_abs() } @Motion;

for my $link ( @Motion ){
    eval {
        $mech_cgi->get( $link );
        1;
    } or warn $@, "\n", $mech_cgi->res->as_string, "\n", '#'x33, "\n\n";
    
    $mech_cgi->back;
}

__END__