more perl snippets