sub Dump {
  require Data::Dumper;
  local $Data::Dumper::Terse=0;
  local $Data::Dumper::Purity=1;
  local $Data::Dumper::Deepcopy=1;
  local $Data::Dumper::Indent=0;
  Data::Dumper::Dumper(@_);
}
print Dump( $this);
print Dump( $that);
print Dump( $otherthing);
[download]