#!/usr/bin/perl
use HTML::TableExtract;
use LWP::Simple;
use Data::Dumper;
my $te = new HTML::TableExtract(gridmap=>1);
my $content = get("http://www.cse.lk/marketinfo/splsum.jsp");
$te->parse($content);
foreach $ts ($te->table_states)
{
foreach $row ($ts->rows)
{
#print Dumper $row;
print @{$row},"\n";
}
}