use strict;
use Devel::Symdump;

sub test { print "Hello!\n" ;}
my $test = 123 ;

my $dump = Devel::Symdump->new();

for (qw(packages scalars arrays hashes functions ios)) {
   print "$_:\n";
   print "\t$_\n" for $dump->$_;
}
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)