open(TL,"$path_to_lang/$thislang/get_form_submissions.txt");
while(<TL>){push(@LaNg,$_)}
&exec_lang;

$param1=~ m!([^/:\\]*)$!; $form = $1;
$form=~s/form_(\S+)\.csv/$1/;
print "Content-type: text/html\n\n";
open(B,"$htm/get_form_submissions.txt");
while(<B>){s/\$(\w+)/${$1}/eg;print}
1;