sub zeit{
my @date = localtime(time);
my $jahr = $date[5]+1900;
my $monat = $date[4]+1;
"$jahr$monat$date[3]$date[2]$date[1]$date[0]";
}