Select Code to Download

########################
sub sql_execute($$) {
...

  #usage: my $rv = sql_execute($dbh, $sql);
}

.
.
...
print $rv;

exit 1;