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