マジレス求む。

デバッグメッセージに自分がいるサブルーチンを含めることは可能だろうか？

たとえば
sub hoge {
(snip)
print_debug_msg($foo); # $foo = 1
(snip)
}

で

hoge: 1


みたいな