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; }