my @nodes = $mech->xpath('//table');
my @data = parse_table($nodes[0]);

sub parse_table ($table_node){
    my $root = HTML::TreeBuilder->new_from_content($table_node->get_attribute('outerHTML'));
    my @tparts = $root->find_by_tag_name('table')->content_list;
    my @colnames = ( );
    my @data;
    foreach my $tpart (@tparts){
        if($tpart->tag eq 'thead'){
            my @rows = $tpart->content_list;
            foreach my $row (@rows) {
                if($row->tag eq 'tr'){
                    my @cells = $row->content_list;
                    # assumes no TH is empty (see below safeguard for data cells)
                    foreach (@cells) {
                        push @colnames, $_->content->[0];
                    }
                }
            }
        }
        elsif($tpart->tag eq 'tbody'){
            my @rows = $tpart->content_list;
            foreach my $row (@rows) {
                my %row_data = ();
                if($row->tag eq 'tr'){
                    my @cells = $row->content_list;
                    foreach (0..$#cells) {
                        # HTML::Element's content method weirdness
                        if($cells[$cell]->content && scalar(@{$cells[$cell]->content})){
                            $row_data{ $colnames[$cell] } = $cells[$cell]->content->[0];
                        }
                        else{
                            $row_data{ $colnames[$cell] } = '';
                        }
                    }
                }
                push @data, \%row_data;
            }
        }
    }
    return \@data;
}