# Aufruf: $self->init(@_).
sub init {
    my $self = shift;
    print Dumper \@_;
}