open(TL,"$path_to_lang/$thislang/get_form_submission.txt"); while(){push(@LaNg,$_)} &exec_lang; $param1=~s`https*://[^/]+`$path_to_domain`; unlink($param1); print "Content-type: text/html\n\n"; print qq~~;