char *theArgv[] = { "", "/dev/null" };
perl_parse(my_perl, xs_init, 2, theArgv, (char **) NULL);