open(TL,"$path_to_lang/$thislang/chngpw.txt");
while(<TL>){push(@LaNg,$_)}
&exec_lang;
&check_cookie;
&check_login;
if($demo_mode){
	$check=qq~alert('DISABLED FOR DEMO')~;
}else{
	$check=qq~check()~;
}
print "Content-type: text/html\n\n";
open(IL,"$htm/changepw.txt");
while(<IL>){
s/\$(\w+)/${$1}/eg;
print
}
1;