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