Update perl snippets a bit more