# NOTE: THIS IS BUSTED, but interesting...
sub DDumper {
 my($v,$i)=@_; # v=what we're dumping, i=indent
 $i="\n" unless $i;
 $i.=' ';
 my $r=ref($v);
 my $s=''; # s is the string we'll return when done
 if($r eq HASH) {
  $s.= "{ ";
  for (keys %$v) {
   $s.= Dumper($_,$i)." => ".Dumper($v->{$_},$i).",$i";
  }
  $s.= " }$i";
 } elsif($r eq ARRAY) {
  $s.= "[ ";
  for ( @$v) {
   $s.= Dumper($_,$i).",$i";
  }
  $s.= " ]$i";
 } elsif($r) {
  $s.= "bless( ".Dumper(%{$v},$i).", '$r') $i";
 } else {
  $s.= "'$v' ";
 }
 $s;
}