Added swig/perl binding