Perl XS samples to get off the ground with