Select Code to Download

my @results;
while (@results = $query1->fetchrow_array()) {
...
        }
    }
}

#!/usr/bin/perl

...
if ($query1->rows == 0 ) {
print "No Records", "\n";
}