When you do a print OUT $te; towards the bottom, you are attempting to print out the HTML::TableExtract object itself, not the results that it has garnered! From the HTML::TableExtract documentation, the following in place of that line might produce something a little more useful:

foreach $ts ($te->table_states) {
  print "Table found at ", join(',', $ts->coords), ":\n";
  foreach $row ($ts->rows) {
    print "   ", join(',', @$row), "\n";
  }
}
[download]

In summary, you probably have gotten the tables you wanted -- you just need to do something useful with them.

 
perl -e 'print "I love $^X$\"$]!$/"#$&V"+@( NO CARRIER'