Perl XS for C++