open(TL,"$path_to_lang/$thislang/findwizard.txt");
while(<TL>){push(@LaNg,$_)}
&exec_lang;
$type=$param1;
print "Content-type: text/html\n\n";
open(F,"$htm/findwizard.txt");
while(<F>){
s/\$(\w+)/${$1}/eg;
print;
}
1;