package Seitenmodul;
use strict;
use warnings;

sub new {
    my $class=shift;
    my $self={};
    bless($self, $class);
    $self->init();
    return $self;
}

sub init {
  my $self=shift;
}

sub echo {
  print "BLA\n";
}

1;