codice:
foreach $row ($ts->rows) {
  print join(',', @$row), "\n";
}
Non capisco cosa serva la @, sulla documentazione non riesco a trovare dove se ne parla.

Lo script completo è qui: http://search.cpan.org/~msisk/HTML-T...ct.pm#SYNOPSIS