#!/usr/bin/Perl

use lib qw( ..);
use HTML::TableExtract;
use LWP::Simple;
use Data::Dumper;

my $te = new HTML::TableExtract( depth=>3,count=>4,gridmap=>1);


my $content = get(
"http://www.ice.com/customer/product_search.jsp?tofs=keywords&keywords=necklace");


$te->parse($content);
foreach $ts ($te->table_states)
{
  foreach $row ($ts->rows)
        {
        print Dumper $row;
        }
}