open(TL,"$path_to_lang/$thislang/basic_auth.txt"); while(){push(@LaNg,$_)} &exec_lang; print "Content-type: text/html\n\n"; print qq~

$htm_text10

$htm_text11


$htm_text12

~; 1;