#!/usr/bin/perl -w

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

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

my $content = get("http://www.computerjobs.com");

$te->parse($content);
foreach $ts ($te->table_states)
{
   foreach $row ($ts->rows)
   {
        print Dumper $row;
#      print Dumper $row if (scalar(@$row) == 2);
   }
}