A slightly longer way...This worked for me on 5.10.1.

#!/usr/bin/perl

use strict;
use warnings;
use Class::Util;

sub dsym {
         my($hashRef) = shift; 
         my(%symbols); 
         my(@symbols); 
         %symbols = %{$hashRef}; 
         @symbols = sort(keys(%symbols)); 
         foreach (@symbols) {
                 printf("%-10.10s| %s\n", $_, $symbols{$_}); 
         } 
} 
print dsym(\%Class::Util::);
[download]