update some perl file