sub new {
    my $cargo = shift;
    my $class = ref $cargo || $cargo;
    my $self = { @_ }; # etwas dümmlich ungeprüfte Übernahme von Parametern.
    bless( $self, $class);
}