printf("entering perl callback handler...\n");
      register PerlInterpreter *my_perl __attribute__((unused)) = ((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(((void *)0)))));
      if ( my_perl != ((void *)0) )
         printf ("my_perl == %ul\n", my_perl);
      else
         printf ("my_perl == NULL\n");
      (void)( { int _eC_; if ((_eC_ = pthread_setspecific((*Perl_Gthr_key_ptr(((void *)0))), (void *)(my_perl)))) Perl_croak_nocontext("panic: pthread_setspecific (%d) [%s:%d]", _eC_, "../../../../../../3rdparty/embedded/brcm/bsa/client/perl/bsa_api_wrap.c", 2005); } );
      printf("dTHX done...\n");
      register SV **sp = (*Perl_Tstack_sp_ptr(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(((void *)0)))))));
      printf("Destruct level : %d...\n", (*Perl_Iperl_destruct_level_ptr(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(((void *)0))))))));
      printf("DSP done...\n");