sub sound {
    my $self = shift;
    croak($self->name ." hasn't got a sound-method"); 
  }