use WWW::Mechanize::Firefox qw();
use HTML::TreeBuilder::LibXML qw();
my $mech = WWW::Mechanize::Firefox->new;
$mech->get('http://dojotoolkit.org/documentation/tutorials/1.6/datagrid/demo/datagrid-simple.html');
my $tree = HTML::TreeBuilder::LibXML->new;
$tree->parse($mech->content);
$tree->eof;
my $name = $tree->findvalue('/html/body/div/div[2]/div/div/div/div/div[2]/table/tbody/tr/td[2]');