init perl snippets