$agent->get($url);
    $page = $agent->content;
    
    $te = new HTML::TableExtract();  
    $te->parse ($page);
    @ts = $te->table_states;                      
    $ts = $ts[3];      #4th table on the page
    @table = $ts->rows;      
    for $row ( @table[1..$#table] )
    {
        if ( exists $row->[7] )
        {
            print $row->[7]->as_text;
        }
    }