Select Code to Download

####################################
## Create database connection
...
}
## End of Do_SQL2 subroutine
#####################################

if ($submit || $preview) {

...
    
    $filename = $pointer->{'filename'};
}