my $worksheet = $workbook->add_worksheet("Table");
my $te = HTML::TableExtract->new( keep_html => 0 );
$te->parse($response);
my $counter;
foreach my $ts ($te->tables) {
   # my $worksheet = $workbook->add_worksheet("Table ".$counter++);
    my $nrow=0;
    foreach my $row ($ts->rows) {
    my $ncol=0;
    foreach my $col (@$row) {
        $worksheet->write($nrow,$ncol++,$col) if defined $col;
    }
    $nrow++;
    }
    $nrow++;
 }