Select Code to Download

my $found = 0;
while(my @row = $sth->fetchrow_array) {
...
if(!$found) {
    ... no rows found ...
}