void wrap_connect_cback_handler(BOOL bConnected)
{
	PERL_SET_CONTEXT(pMyConnectCbPerlCTX);
	
	SV * sv = NULL; 
	sv = MyConnectCbPerl;

	if (sv == (SV*)NULL) 
			croak("Internal error...MyConnectCbPerl not registered\n");

	//Sleep(50);
	
	dSP;
	ENTER;
	SAVETMPS;
   
	PUSHMARK(SP);

	XPUSHs(sv_2mortal(newSViv(bConnected)));
    	PUTBACK;
	
	/* Call the Perl sub */
	call_sv(sv, G_DISCARD);	
	//PERL_SET_CONTEXT(pMyConnectCbPerlCTX);
	
	SPAGAIN; 
	PUTBACK;

	FREETMPS;
	LEAVE;
}