add perl to call shannon ratchet