Select Code to Download

#!/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);