Select Code to Download

while ( $sth->{Active} and
        $rowcache=$sth->fetchall_arrayref({}, $max_rows)
) {
    ...
}