Initial version of perl snippets