add perl snippets