#!/usr/bin/perl -w

use strict;

use TableThing;

my $table = new TableThing;

$table->parse_file('table.html');

foreach ( @{$table->{Table}} )
{
  print join(',',@{$_}),"\n";
}