add some perl scripts