#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;
use HTTP::Request;
use HTML::TableExtract;

my $ua = LWP::UserAgent->new(timeout => 10);
my $url = 'http://sourceforge.net/tracker/?atid=440764&group_id=36855&func=browse';
my $request = HTTP::Request->new('GET',$url);
my $response = $ua->request($request);

if ($response->is_success){
    my $te = new HTML::TableExtract( headers => ['Request ID','Summary'] );
    $te->parse($response->content);

    foreach my $ts ($te->table_states) {
        foreach my $row ($ts->rows) {
            print  (join("\t", @$row)."\n");
        }
    }
} else {
    print "Error: ".$response->status_line."\n";
}