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