void root_sender(){ 

  // MonaLisa monitoring
  gSystem->Load("libMonaLisa.so");
  
  new TMonaLisaWriter("Root","Dummy","mlr1.gla.ac.uk:8888");

  TList *valuelist = new TList();
  valuelist->SetOwner(kTRUE);

  cout << "Sending datagram " << "*/ROOT_Dummy/Root/Active/1" << endl;

  TMonaLisaValue* valdouble = new TMonaLisaValue("Active",1);
  valuelist->Add(valdouble);

  gMonitoringWriter->SendParameters(valuelist);
  delete valuelist;

  printf("Test finished\n");
}