sub new {
   my $self = shift;
   register( $self );