use Data::Peek;
   my %hash = ( boo => [ 1..3 ], blah => "ab\nc\x{20ac}" );
   my $dump;
   open my $fh, ">", \$dump;
   DDump_IO ($fh, \%hash, 6);
   close $fh;
   print $dump;