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

void boot_DynaLoader (pTHX_ CV* cv);

void xs_init(pTHX) {
    static const char file[] = __FILE__;
    dXSUB_SYS;
    PERL_UNUSED_CONTEXT;
    newXS( "DynaLoader::boot_DynaLoader", boot_DynaLoader, file );
}

int main( int argc, char **argv, char **env ) {
  PerlInterpreter *my_perl;
  PERL_SYS_INIT3( &argc, &argv, &env );
  my_perl = perl_alloc();
  perl_construct(my_perl);
  perl_parse( my_perl, xs_init, argc, argv, env );
  int result = perl_run(my_perl);
  perl_destruct(my_perl);
  perl_free(my_perl);
  PERL_SYS_TERM();
  return result;
}