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