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.