Select Code to Download

#include <EXTERN.h>
#include <perl.h>

...
  perl_destruct(my_perl);
  perl_free(my_perl);
}

use DBI;

sub expo {
    my ($a, $b) = @_;
    return $a ** $b;
}