Select Code to Download

use warnings;
use strict;
...
    my $gv = B::svref_2object($cr)->GV;
    printf "%s::%s\n", $gv->STASH->NAME, $gv->NAME;
}