perl interface using SWIG mostly working