Select Code to Download

for (my $row = 0; $row <= $tdb->{MaxRow}; $row++) {
    my $cell = $tdb->{Cells}[$row][0];
    my $value = $cell->Value;
    print FH "$value\n";
}