#!/usr/bin/perl

my $FILENAME = "file.html";
open (FILE, $FILENAME);
use HTML::TableContentParser;

$table_cp = HTML::TableContentParser->new;
$tables = $table_cp->parse($FILENAME);

my $info = $tables->[0];

foreach $row (@{$info->{rows}})
{
	foreach $col (@{$row->{cols}})
	{
		$data = $col->{data};
		print "$data\n";
	}
}