$ perl -wde 0
main::(-e:1):   0
  DB<1> use Memoize

  DB<2> p UNIVERSAL::can('Memoize', 'memoize')
CODE(0x8402a10)
  DB<3> x UNIVERSAL::can('CORE', 'glob')
0  undef
  DB<4> x UNIVERSAL::can('CORE::GLOBAL', 'glob')
0  undef