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->$_;
}