my $te = HTML::TableExtract->new( attribs=> { class=>'class-name' } );
$te->parse($html_string);
for my $ts ($te->tables) {
	print "Table with class 'class-name' found\n";
}