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