adding perl tests