Select Code to Download

$sth->execute();
my $recordset = $sth->fetchall_arrayref();
...
else {
   # empty recordset. Do something else.
}

my $found = 0;
while (my $rec = $sth->fetchrow_arrayref()) {
...
   # do something else
}