Thanks for all of the help that you have provided. I had an error in the part that handles the printing of the items. I had cut/paste it from a site and it had the error. Which forced me to try another method that didn't work either...this is the correct code.

   foreach $row ($te->rows) {
        print join(',', @$row), "\n";
    }
[download]

handles it nicely. Thoth