sub zeit(@_);
zeit(my $zeitstempel);#Prototyp
open(SPEICHGANSBUCH,'>',"$directorySpeicherdatei/U20130306G1_$zeitstempel.txt") or die "Speicherdatei BUCH nicht gefunden";