$mech -> get($home_url);
        print " base is :",$mech->response()->base,"\n\n";
        #print " Home page is :",$mech->uri(),"\n\n";
        my $parser = HTML::TokeParser->new($mech->content);
html_table_parse();

sub html_table_parse {
       while( my $div =$parser->get_tag('div') ) {
               my $div_id=$div->get_attr('id');
               next unless defined ($div_id) and $div_id eq 'jqxgrid';

               my $div_contenttablejqxgrid=$parser->get_tag('div');
               my $div_contenttablejqxgrid_id=$div_contenttablejqxgrid->get_attr('id');
               next unless defined ($div_contenttablejqxgrid_id) and $div_contenttablejqxgrid_id eq 'contenttablejqxgrid';

               my $div_row=$parser->get_tag('div');
               my $div_row_id=$div_row->get_attr('role');
               next unless defined ($div_row_id) and $div_row_id eq 'row';

               my $div_gridcell=$parser->get_tag('div');
               my $div_gridcell_id=$div_gridcell->get_attr('role');

               next unless defined ($div_gridcell_id) and $div_gridcell_id eq 'gridcell';

               print "Content is ",$div_gridcell_id->get_text,"\n\n";






       }
}