Select Code to Download

   my $b;
   my $sql            = qq{SELECT b FROM blah WHERE user = ?};
...
   while( $sth->fetchall_arrayref ) {
      print "$b\n"    if $_;
   }

   my $b;
   my $sql   = qq{SELECT b FROM blah WHERE user = ?};
...
                || shift(@{$rows=$sth->fetchall_arrayref([0],10_000)||
+[]})) {
      print "$row->[0]\n";
   }