Help for this page
#include <EXTERN.h> #include <perl.h> ... PERL_SYS_TERM(); }
sub expo { my ($a, $b) = @_; return $a ** $b; }