#!/opt/perl-5.6.1/bin/perl -w
BEGIN { push (@INC, "/home/chanyan1/rta/");
}
use lib qw( ..);
use HTML::TableExtract;
use LWP::Simple;
use Data::Dumper;
use strict;

my $row;

my $te  = new HTML::TableExtract;
my $content = "config.xml";

  my $dir = ".";
  my $xfile = "${dir}/$content";
  print "xfile=$xfile\n";

$te->parse($content);
print "parsed\n";

my @ts = $te->tables;
print "tabled\n";

for my $ts(@ts){
print "table";
print "Table (", join(',', $ts->coords), "):\n";
foreach $row ($ts->rows)
{
print join(',', @$row), "\n";
print Dumper $row;
#      print Dumper $row if (scalar(@$row) == 2);
}
}