#!/usr/bin/perl -w
use strict;
use Dumpvalue;

print "dumping data structure\n";
dump_ref(\$reference_to_your_nested_data_structure);
exit;
#the sub.
sub dump_ref
{
  my $d = new Dumpvalue;
  my $ref = shift;
  $d->dumpValues($ref);
}