use LWP::Simple;
use URI;
use HTML::TableContentParser;
use HTML::Entities;

our $page;
our $tables;
our $tcp = new HTML::TableContentParser;
our $modules;
our $query;
our $count=0;


our $query = "http://www.municipalcourt.org:81/connection/court/lookup.xsp?in=ct&case=04TRD02044-A&view=detail";

$page = get($query);

  $p = HTML::TableContentParser->new();
  $tables = $p->parse($page);
  for $t (@$tables) {
    for $r (@{$t->{rows}}) {
                        print "Row: ";
      for $c (@{$r->{cells}}) {
        print "[$c->{data}] ";                          
      }                         
      print "\n";                       
    }
  }