<perl>
my $Datum1 = datum("jetzt", "Tag Monat Jahr");
my $Datum2 = datum("24.12.2006", "Tag Monat Jahr");
 
my @Datum1 = split(/ /, $Datum1);
my @Datum2 = split(/ /, $Datum2);
 
my $SumTage = 0;
 
my %AnzTage = (1, 31, 2, 28, 3, 31, 4, 30, 5, 31, 6, 30, 7, 31, 8, 31, 9, 30, 10, 31, 11, 30, 12, 31);
my $i = 0;
 

 # Monate + Tage im aktuellen Jahr
 for ($i = 1; $i < $Datum2[1]; ++$i) {
  $SumTage += $AnzTage{$i};
 }
 $SumTage += $Datum2[0];
 
 # Monate + Tage im zurückliegenden Jahr
 for ($i = 12; $i > $Datum1[1]; --$i) {
  $SumTage += $AnzTage{$i};
 }
 $SumTage += $AnzTage{$Datum1[1]} - $Datum1[0];
 
 # Jahre rechnen
 $SumTage += ($Datum2[2] - $Datum1[2] - 1) * 365;
} else {
 if ($Datum1[1] == $Datum2[1]) {
  $SumTage = $Datum2[0] - $Datum1[0];
 } else {
  # Monate + Tage im aktuellen Datum
  for ($i = 1; $i < $Datum2[1]; ++$i) {
   $SumTage += $AnzTage{$i};
  }
  $SumTage += $Datum2[0];
  
  # Monate + Tage im zurückliegenden Datum
  for ($i = 1; $i < $Datum1[1]; ++$i) {
   $SumTage -= $AnzTage{$i};
  }
  $SumTage -= $Datum1[0];
 }
}
out "Noch $SumTage Tage bis Weihnachten 2006";
</perl>