This change works for me, even though it does not make me feel good.

It looks like a bug in the DBI to me.

$sth->{PrintError} =0;
while ( my $rows= $sth->fetchall_arrayref([0],3) and !$sth->err )
{
  for (@$rows) {
        print "got @$_\n";
  }
  print "---\n";
}
[download]