$self = {
     foobar => $Foo::bar,
     name   => $Egal::Name,
     vname  => $Egal::Vorname,
     debug  => $Diag::Debug
  };