add perl snippet