void dorunperlfunction() {
   if (mine) {
      PERL_SET_CONTEXT(mine);
      dSP;
      ENTER;
      SAVETMPS;
      PUSHMARK(SP);
      PUTBACK;
      call_pv("functionname", G_DISCARD|G_NOARGS);
      FREETMPS;
      LEAVE;
   }