adding now snippets to perl file type