add perl SWIG example