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