Select Code to Download

{
    no strict 'refs';
...
    print B::svref_2object(\&$name)->GV->LINE;
    $name->();
}

my $glob = $::{'Foo::'}{some_sub};
print B::svref_2object(\*$glob)->LINE;
print B::svref_2object(\&$glob)->GV->LINE;
$glob->();