DB<5> x "" . Devel::Peek::CvGV( \&foo )
0  '*main::foo'

##</code><code>##

my $coderef = do { no strict 'refs'; \&{ $subname } };