DB<101> $coderef=sub {print "nonsense"}
 
  DB<102> *glob=\$coderef
 
  DB<103> &$glob
nonsense
  DB<104> glob()