Select Code to Download

use Modern::Perl;
use DBI;
...
while (my $row = $sth->fetchall_arrayref) {
    say Dumper $row;
}

DBD::ODBC::st fetchall_arrayref warning: no select statement currently
+ executing
 at conn.pl line 17.

$VAR1 = [];

...
$VAR1 = [];

$VAR1 = [];

DBD::ODBC::st fetchall_arrayref warning: no select statement currently
+ executing
 at conn.pl line 17.
...
 at conn.pl line 17.
DBD::ODBC::st fetchall_arrayref warning: no select statement currently
+ executing
 ... repeat forever ....