perl is complaining because the syntax $q->(...) treats $q as a code ref, when it isn't. I'm not sure what you wanted to do with the $q->(...) expression, but I think that what you want is simply:

    print "dssp file used is $dssp_file<br>";
[download]

Note the double quotes, so that you get variable interpolation.