///////////////////////////////////////////
static void
    call_Subtract(a, b)
    int a;
    int b;
    {
        dSP;
        int count;

        ENTER;
        SAVETMPS;

        PUSHMARK(SP);
        XPUSHs(sv_2mortal(newSViv(a)));
        XPUSHs(sv_2mortal(newSViv(b)));
        PUTBACK;

        printf("PL_errgv2 = %p\n", PL_errgv);

        //count = call_pv("Subtract", G_EVAL|G_SCALAR);
		count = call_pv("Subtract", G_SCALAR);

        SPAGAIN;

        printf("PL_errgv3 = %p\n", PL_errgv);

        /* Check the eval first */
        if (SvTRUE(ERRSV))  //crashes here
        {
            STRLEN n_a;
            printf ("Uh oh - %s\n", SvPV(ERRSV, n_a));
            POPs;
        }
      /*  else
        {
            if (count != 1)
               croak("call_Subtract: wanted 1 value from 'Subtract', got %d\n",
                        count);

            printf ("%d - %d = %d\n", a, b, POPi);
        }*/

        PUTBACK;
        FREETMPS;
        LEAVE;
    }

    int main (int argc, char **argv, char **env)
    {
      char *my_argv[] = { "", "power.pl" };

      PERL_SYS_INIT3(&argc,&argv,&env);
      my_perl = perl_alloc();
      perl_construct( my_perl );
      
      printf("PL_errgv1 = %p\n", PL_errgv);

      perl_parse(my_perl, NULL, 2, my_argv, (char **)NULL);
      PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
      perl_run(my_perl);

  call_Subtract(10,5);

      perl_destruct(my_perl);
      perl_free(my_perl);
      PERL_SYS_TERM();
    }