package Example::Package;
use strict;
no strict 'refs';
use Data::Dumper; $Data::Dumper::Indent = 1; $Data::Dumper::Sortkeys = 1;


sub wuzzle {
    print "supz\n";
}

my $symbol_table = *{"main::Example::Package::"}{HASH};

print "", Dumper($symbol_table), "\n";

$symbol_table->{wuzzle}->();