use strict;
use LWP::Simple;
use HTML::TableExtract;
my $url="xxx";
my $content = get($url);
my $te = HTML::TableExtract->new(depth => 1);
$te->parse($content);
foreach my $row ($te->rows) {
  print join(',', @$row), "\n";
}