sub new {
    my $invoc	= shift;
    my $class	= ref $invoc || $invoc;
    my $self = {
                   EINWERT => 'trallala',
                   EINANDERERWERT => 'anderewert'
                   };
    bless($self, $class);
    return $self;
}