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