Select Code to Download

      } elsif ($action eq 'nextval') {
        my $oldrow = $row;
        $row = $sth->fetchrow_arrayref;
        return $oldrow->[0];
      }

  sub dbi_query_iterator {
    my ($sth, @params) = @_;
...
        return $oldrow->[0];
      }
  }