Perl XS examples