sub DESTROY {
      my $self = shift;
      delete $TEMPS{"$self"};
  }