sub new {
  my ($class) = @_;
  my $self = {}; # oder was auch immer du fuer eine Referenz willst
  bless ($self, $class); # hier erst wird $self zum Objekt
  return $self;
}