how to create a global singleton object in exe

// how to create a global singleton object
const TInt KMarkTlsHandle = 0xC0FFEE;

class CYourClass: public CBase
 {
 public:
  CYourClass(){};
  void ConstructL(){};
  ~CYourClass();
 };

CYourClass::~CYourClass()
 {

 //release TLS
 UserSvr::DllFreeTls(KMarkTlsHandle);
 }

//how to create a global singleton object
void CMarkEComWrapper::DoCommandCreateSingletonObject()
 {
 TInt err = KErrNone;

//Get object from STL
 CYourClass* iSingletonObject = static_cast<CYourClass*> (UserSvr::DllTls(KMarkTlsHandle));

//if not, create one
 if (!iSingletonObject)
  {
  iSingletonObject = new (ELeave) CYourClass;
  CleanupStack::PushL(iSingletonObject);
  iSingletonObject->ConstructL();
  err = UserSvr::DllSetTls( KMarkTlsHandle, iSingletonObject );
  CleanupStack::Pop(iSingletonObject);
  }

delete iSingletonObject ;

iSingletonObject  = 0;
 }