sub ausgabe_auswahl { print qq~ Auswahl IdentNr: $identnr
DocName: $docname ~; }