for(1 .. 30000) {
   my $table = $html_file."/".$_;
   $te = HTML::TableExtract->new( depth => 1, count => 0 );
   $te->parse_file($table);
}