##########################################################
use strict;
use warnings;
use HTML::TableExtract;

my $headers = ['Col1_name', 'Col2_name', 'Col2_name'];

my $table_extract = HTML::TableExtract->new(headers => $headers);

$table_extract->parse_file('file.html');
my ($table) = $table_extract->tables;

my $i=0;
for my $rox ($table->rows) 
 {
    print join(',' , @$rox), "\n";
 }
##########################################################