adding perl