my ($year, $month, $day) = Today();
my $Dd = -1;