use strict;
use warnings;
use Date::Calc qw(Delta_Days Today
                  Today);

my ($year, $month, $day) = Today();
my $days = Delta_Days($year, $month, $day, $year, 12, 24);
print "Noch ", $days, " Tage bis Weihnachten.\n";