my_perl = perl_alloc();
             perl_construct(my_perl);
             perl_parse(my_perl, NULL, argc, argv, (char **)NULL);
             perl_run(my_perl);
             perl_destruct(my_perl);
             perl_free(my_perl);