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

if($usermb =~ /\d+/){
&allocation;
}
print "Content-type: text/html\n\n";
open(SH,"$htm/savefileas.txt");
while(<SH>){
s/\$(\w+)/${$1}/eg;
print
}
1;