Select Code to Download

# obtain CODEref name
use B;
...
    my $obj = B::svref_2object($coderef);
    return $obj->GV->STASH->NAME . "::" . $obj->GV->NAME;
}

> perl -MDevel::Peek -e '$var = 123; Dump \$var; sub my_sub {}; Dump \
+&my_sub'
SV = RV(0x8073260) at 0x804cc28
...
    PADLIST = 0x8064b04
    PADNAME = 0x804cce8(0x8088758) PAD = 0x8065678(0x805e5b0)
    OUTSIDE = 0x804cd78 (MAIN)