adding perl scripts