Added more snippets to perl