#!/usr/bin/perl

use Dumpvalue;

sub dump_ref
{
   my $ref = shift;
   my $dumper = new Dumpvalue;
   print "Content-Type:text/html\n\n";
   print "<pre>";
   $dumper->dumpValues($ref);
   print "</pre>";
   exit;
}