use Modern::Perl;
use DBI;
use Data::Dumper;

my $dbh = DBI->connect('dbi:ODBC:DSN=myDSN', undef, undef, {RaiseError => 1});
$dbh->{LongReadLen} = 1000000; 
$dbh->{LongTruncOk} = 1;


my $sth = $dbh->prepare(q{select * from table});
$sth->execute;

while (my $row = $sth->fetchall_arrayref) {
    say Dumper $row;
}

##</code><code>##

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