Some very small perl snippets