in reply to perl xs

That particular example is not very good, Switch to Inline::C