sub new {
      my ($class, $name) = @_;
      return bless { name => $name }, $class
  }