add perl exception