print B::svref_2object($code)->GV->NAME