Select Code to Download

use B;
sub codename {
...
    my $cv = B::svref_2object($coderef);
    return $cv->GV->NAME;
}

use Sub::Identify qw(sub_name);
sub foo {}
print sub_name(\&foo);