diff --git a/test/GetWebHistogram.C b/test/GetWebHistogram.C
new file mode 100644
index 0000000000000000000000000000000000000000..5c2ab7654203904b7075aafdd79add69d6ad8b75
--- /dev/null
+++ b/test/GetWebHistogram.C
@@ -0,0 +1,14 @@
+void GetWebHistogram()
+{
+   // example of script called from an Action on Demand when a TRef object
+   // is dereferenced. See Event.h, member fWebHistogram
+   
+   const char *URL = "http://root.cern.ch/files/pippa.root";
+   printf("GetWebHistogram from URL: %s\n",URL);
+   TFile *f= TFile::Open(URL);
+   f->cd("DM/CJ");
+   TH1 *h6 = (TH1*)gDirectory->Get("h6");
+   h6->SetDirectory(0);
+   delete f;
+   TRef::SetObject(h6);
+}