Select Code to Download

#!perl
use strict;
...
  print "\nLine 4 ", join(', ',$ts->row(4));  
  print "\n";
}