use warnings;
use strict;
use HTML::TableExtract;
use LWP::Simple;

my $file ="/path/to/file/file.htm";
my $T = HTML::TableExtract->new();
my $table = $T->parse_file($file)
             ->first_table_found;

my @rows = $table->rows;

   foreach my $row ($T->rows) {
      print join(',', @$row), "\n";
   }