Example on how to use Ada code in perl with XS