Select Code to Download

foreach my $ts ( $te->tables ) {
    print "Table (", join( ',', $ts->coords ), "):\n";
...
       $OUT-> print( join( ',', grep { length $_ } @$row ), "\n");
    }
}