Code to go with a blog post about writing Perl XS code