void
Tcl_Init(interp)
	Tcl	interp
    CODE:
	if (!initialized) { return; }
	if (tclKit_AppInit(interp) != TCL_OK) {
	    croak(Tcl_GetStringResult(interp));
	}
	Tcl_CreateObjCommand(interp, "::perl::Eval", Tcl_EvalInPerl,
		(ClientData) NULL, NULL);