-my $stats = new ZOOM::IRSpy::Stats("localhost:3313/IR-Explain---1");
-use Data::Dumper;
-print "<pre>", xml_encode(Dumper($stats)), "</pre>\n";
+my $stats = $m->cache->get("stats");
+if (defined $stats) {
+ print "<h2>Reusing cached result</h2>\n";
+ print "stats=$stats\n";
+} else {
+ print "<h2>Recalculating stats</h2>\n";
+ $stats = new ZOOM::IRSpy::Stats("localhost:3313/IR-Explain---1");
+ $m->cache->set("stats", $stats, "1 minute");
+}
+print "<pre>";
+$stats->print();
+print "</pre>\n";