add perl snippets prt