open(DA,">:encoding(UTF-8)","$file") || print "Can't Open File. Try chmod 777 citydata directory<br><br>";
print DA $data;
close(DA);