my $ref = \&Pack::foo;

# Using B
use B;
my $gv = B::svref_2object($ref)->GV;
print $gv->STASH->NAME, '::', $gv->NAME, "\n";

# Or for simply displaying it in human readable format:
use Devel::Peek;
Dump $ref;