Select Code to Download

<BR><B>
00:00 - 00:15
...

</TR>
</TABLE>

use warnings;
...
   foreach my $row ($T->rows) {
      print join(',', @$row), "\n";
   }