update perl snippets