Select Code to Download

$apr_decl = "SELECT ...";
# Runs Query
...
@reason = &run_query($apr_decl);
print REASON "CRAC_EVNT_DATA_T, Number Declined\n";
print REASON "@reason";