DB<26> sub BLA::foo { print "BLA::foo"}

  DB<27> use Data::Dumper

  DB<28> p Dumper \%BLA::
$VAR1 = {
          'foo' => *BLA::foo,
          'AUTOLOAD' => *BLA::AUTOLOAD
        };