<---- print "Enter filename"; $filename=; ... ... FROM STAGE WHERE REC_TYP='q'"); <----