Added some perl snippets