Select Code to Download

#include <EXTERN.h>
#include <perl.h>
...
  PERL_SYS_TERM();
}

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