void call_perl(void)
{
    /* call perl function to do the work and trap any errors */
    /* use the static (singleton) version of the perl interpreter */
    my_perl = get_perl("module_init.pm");