in reply to Selectively truncating data structure dumps

I do something like 
{
    local $foo->{bar}{bar}{bar} =
substr  $foo->{bar}{bar}{bar}, 0, 20;
    Dump( $foo );
}

[download]

In Section Seekers of Perl Wisdom