Power-up perl snippets