Select Code to Download

    while (my $row = $sth->fetch()) {
        for (1..$#$row) { 
...
            ...
        }
    }

    while (my $row = $sth->fetch()) {
        my ($parent_id, $id) = @$row;
        ...
    }