Select Code to Download

sub foo { CORE::say "ok" }
my %h;
...
my $ref2 = \%h;
bless($ref1);
$ref2->foo();

$ perl -MScalar::Util=reftype -e'
   CORE::say ref(\*FOO);
...
GLOB
main
GLOB