Select Code to Download

my ($d,$m,$y) = (localtime)[3,4,5];
my $mdy = sprintf '%d/%d/%d', $m+1, $d, $y+1900;

my $mdy = sprintf '%02d/%02d/%04d', $m+1, $d, $y+1900;