use Sub::Identify ':all';
    my $subname = sub_name( $some_coderef );