Select Code to Download

my_perl = perl_alloc();

perl_construct(my_perl);

perl_parse(my_perl, xs_init, 2, my_argv, (char **)NULL);

perl_run(my_perl);

Perldatabase(pseudo, queue);

perl_destruct (my_perl);
perl_free(my_perl);

return (queue);