use Data::TreeDumper;
$Data::TreeDumper::Maxdepth=4;
$Data::TreeDumper::Useascii=1;
$Data::TreeDumper::Displayaddress=0;
my $d= {
    "one" => 1,
    "two" => 2,
    "array" => [1,2,3,4],
    "hash" => {"test" => "me"}
};
print DumpTree($d,'Contents of $d');