add perl pt