sub new {
  my $class = shift;
  my $self = {}; # oder was auch immer
  bless ($self, $class);
}