sub machwas {
  my $self = shift;
  my $parm = shift;
  die 'Parameter of ' 
      . __PACKAGE__ 
      . '->machwas() must be between 0..9' 
      if $parm<0 or $parm >9;
  
  #d machdies und das  
}