Help for this page
#!/usr/bin/perl -w # ... print "$month\n"; print "$day\n"; print "$year$month$day\n";
my ($year, $month, $day) = Today(); my $Dd = -1;
$month = sprintf("%02d", $month);