sub new {
  my $class = shift;
  my $referenz = {};
  bless($referenz,$class);
  return($referenz);
}