Select Code to Download

#!/usr/bin/perl 
use strict;
...
foreach my $row ($te->rows) {
        print join(' - ', @$row);
        }