add perl snippets

Change-Id: Ia07a8df6cd814ecaae4c28233578cb1a95b7a45b