Select Code to Download

foreach my $sql (@sql) {
       unless ($sth=run_sql($sql)){
...
}
#Use them like this...
my $result = $sth->fetchall_arrayref;

#
#run_sql
...

return $sth;
} # run_sql