perl snippets