sub new {
  my $class=shift;
  my $val=shift;

  my $self={ val  => $val };

  my $obj_unique=$class.'::INSIDE';
  $obj_unique.=chr(int(rand(26)+65)) while($used{$obj_unique});
  $used{$obj_unique}++;
  no strict;
  @{$obj_unique.'::'.ISA}=($class);
  $self->{ISA}=\@{$obj_unique.'::'.ISA};
  return bless($self, $obj_unique );
}