This would be a fine opportunity for the use of XS because.. well, XS is C. :) So basically you'd be running the C code shown, except with a few megabytes of Perl interpreter laoded on top of it.

Makeshifts last the longest.