optimize lua
perl script added
update