sub new {
  my($class) = shift;
  my($name)  = shift;
  my($self)  = {};

  $self = { childs => \() };

  bless($self, $class);

  $self->{name}   = $name;
  $self->{parent} = undef;

  return($self);
}