print"Please Select A Language To Convert\n"
print"<select name="lang_files_completed">\n";
print"<option value="$lang_files{'1'}">$lang_files{'1'}</option>\n";#list all files already written
print"</select>\n";
print"<br />Enter The Name Of The New Language\n";
print"<input type="text"name="new_language">\n"

##</code><code>##

print"$lng{'1'}\n";
print"<input type="text"name="new_language_text">\n";

##</code><code>##


for($b=0;$b<$cnt;$b++){$a=$b+1;###$cnt---is number of entries in the hash
print AAA"print\"\$lng{\'$a\'}<br />\\n\"\;\n";
print AAA"print\"<input type=\\\"text\\\"name=\\\"nl$a\\\"size=\\\"200\\\"><br />\\n\"\;\n";
}