my_perl = perl_alloc();

##</code><code>##

perl_construct(my_perl);

##</code><code>##

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

##</code><code>##

perl_run(my_perl);

Perldatabase(pseudo, queue);

##</code><code>##

perl_destruct (my_perl);
perl_free(my_perl);

return (queue);