use strict;
use warnings;
use LWP::Simple;
use HTML::TreeBuilder;
use HTML::ElementTable;

my $page = get ('http://www.ovt.ncsu.edu/cotton_soy/2004/table_11.html');
my $root = HTML::TreeBuilder->new_from_content ($page);
my $theTable = $root->find ('table');

die "Table not found" if ! defined $theTable;

$theTable = HTML::ElementTable->new_from_tree($theTable);

for my $row (1..$theTable->maxrow()-2)
  {
  for (0..$theTable->maxcol())
    {
    my $cellText = $theTable->cell ($row, $_)->as_text ();
    print "$cellText ";
    }

  print "\n";
  }