[PerlChina] how to convert code reference to a string

$ perl -e 'sub function_name{print "This is a sub routine"}; my $d=
\&f; $d->(); print $d'
This is a sub routineCODE(0x1a6f6b0)

现在反过来，根据code reference，如何拿到function name？
具体问题来说

my %hash = ('key1' => 1, "key2"=> \&filename::function)
现在知道这个hash，如何编程拿到"\&filename::function" 这个字符串。
注意： 要的是字符串

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。