$ perl -le'my $foo = sub { print "bar" }; sub x { goto $foo } print "$foo"; x'
CODE(0x813bc08)
bar