Select Code to Download

use LWP::Simple qw( get );
use HTML::TokeParser::Simple;

...
my $doc = $p->parse_html_string($page);
my ( $td ) = $doc->findnodes('//td[@class="someClass"]');
print $td->textContent, $/;