dev on initialize.F90 and perl script