Select Code to Download

SELECT *

my $sql="HERE_DOC;
    SELECT p.userID, LEN(p.passwd) 
...
    GROUP BY p.userID;

HERE_DOC"

if ( !CheckPass() ){
    #bail
}else{
    # continue 
}

    use constant SCRIPT_DB       => 'script_db' #
    use constant PASSWORD_TABLE    => 'passwd';   #

open FILE, $q->param('File')