#!/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";       

       }
}