Update perl snippet