adding perl tools scripts