#!/usr/bin/perl

use WWW::Mechanize;
use HTML::TableExtract qw(tree);;
use strict;

start();    


sub start {
    my $te = HTML::TableExtract -> new(  );    
    my $agent = WWW::Mechanize->new( stack_depth => 0);
    $agent-> agent_alias( 'Windows IE 6' );
    $agent->get('http://www.perlmonks.org/?');
    my $page = $agent->content;
    
    
    for (my $c =0 ; $c < 500; $c++)
    {
        $te->parse ($page);
        print "c is $c\n";
    }
}
exit();