#!/usr/bin/perl -w
use strict;
use Data::Dumper;
use Carp;
use HTML::TableExtract;

my $temp_file = do {
    open my $in, '<', 'myfile.html'
        or carp "Can't open in $!\n";
    local $/ = undef;
    <$in>;
};

#--------------------------------------------------
# Extract Element of HTML Table
#--------------------------------------------------

#print Dumper $temp_file ;
( my $id ) = $temp_file =~ /([\w]+\.[\w\d]+)/ms;
print "$id\n";

my $te = HTML::TableExtract->new(
    headers => [
            'Data set','nTP','nFP',
            'nFN','nTN','sTP',
            'sFP','sFN',' ','nSn',
            'nPPV','nSp','nPC',
            'nCC','sSn','sPPV',
            'sASP',
    ]
);


$te->parse($temp_file);
my @all_table_content = $te->tables;

# Here to extract the 'last' row
my @total             = @{ $all_table_content[0]->[-1] };
print Dumper \@all_table_content ;