#!/usr/bin/perl -w
use strict;
use WWW::Mechanize;

my $browser = WWW::Mechanize->new();
$browser->get('http://www.chessgames.com');
$browser->follow_link( url_regex => qr/chessgame\?gid=\d+/ );
$browser->follow_link( text => 'view text' );
print $browser->content;