Select Code to Download

      my $x = 0;
      my @ar = ();
...
      }
      $s->rows = $x;     
      $s->ar   = \@ar;

my @ar = ();
while (my $hr = $sth->fetchrow_hashref() ) {
...
}
$s->ar = \@ar;
$s->rows = @ar;