package main;
  use Foo;
  $Foo::callbacks{iguana} = sub { ... };