Select Code to Download

#!/usr/bin/perl

...
        print "   ", join(',', @$row), "\n"; 
    } 
}

foreach my $table ( $te->tables ) {
        foreach my $row ($table->rows) {
...
       }
    }