my $REGISTRY;

sub bless {
  &CORE::bless;
  $REGISTRY{ $_[1] }{ refaddr $_[0] } = $_[0];
  return $_[0];
}