# $nmb enthält die Anzahl Tage, die vom heutigen
   # Datum abgezogen werden sollen ...
   my $nmb = 374672;

   my @tm  = (localtime);
   $tm[5] += 1900;
   $tm[4]++;

   while ($nmb--) {
      $tm[3]--;
      if ($tm[3] == 0) {
         $tm[4]--;
         if ($tm[4] == 0) {
            $tm[4] = 12;
            $tm[5]--;
         }
         if ($tm[4] =~ /^(1|3|5|7|8|10|12)$/) {
            $tm[3] = 31;
         } elsif ($tm[4] =~ /^(4|6|9|11)$/) {
            $tm[3] = 30;

         # ein Schaltjahr ist ...
         # - wenn ein Jahr durch 4 teilbar ist
         # - aber nicht, wenn es durch 100 teilbar ist
         # - aber doch wieder, wenn es durch 400 teilbar ist

         } elsif (!($tm[5] % 400) || ($tm[5] % 100 && !($tm[5] % 4))) {
            $tm[3] = 29;
         } else {
            $tm[3] = 28;
         }
      }
   }

my @tm  = (localtime)[3..5];

my ($day,$month,$year)  = (localtime)[3..5];