$htm_title -----------------------------------------------------------------------------------

if($demo_mode){ $demo1=qq~'alert("DISABLED FOR DEMO")'~; }else{ $demo1=qq~apply()~; } open(TL,"$path_to_lang/$thislang/nuname.txt"); while(){push(@LaNg,$_)} &exec_lang; $param1=~ m!([^/:\\]*)$!; #capture file name $file = $1; print "Content-type: text/html\n\n"; print qq~ $htm_title -----------------------------------------------------------------------------------

$htm_text1:

	~; 1;