sub zeit {
    my ($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
    $mon++;
    $year += 1900;
    my $zeitstempel = sprintf("%04d%02d%02d%02d%02d%02d", $year, $mon, $mday, $hour, $min, $sec);
    return $zeitstempel;
}